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1.0  , PROGE^  ABSTRACT  AND'  HISTORY  OF  USB 


1.1  ABSTRACT- 


Program  QA191H  performs  quality  assurance  tests  on  Field  Spectrometer  data^ 
recorded  on  9-track  magnetic  tape.  The  quality  testing  involves  the  comparison 
of  key  housekeeping  and  data  parameters  with  historic  and  predetermined  tolerance 
limits.  Samples  of  key  parameters  are  processed  during  the  Calibration  period 
and  Wavelength  Cal  period,  and  the  results  are  printed  out  and  recorded  ort  a 
historical  file  tape. 


1.1-1 
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1.2  HISTORY  OF  USE 

The  Field  Spectrometer  Quality  Testing  Program  DesignDocxment  is  adapted  from 
the  S 191  Infrared  Spectrometer  Program  Design  Document  (ERS-300-:03)  dated 
February  1973. 


2.0  PROGRAM  USER^  S INFORMATION 


JSC-10140 


2.1  IDENTIFICATION 


Title- ^ 

Author : 

Date; 

Installation: 
Authorization : 

Source  Lanuage : 

Computer  Configuration; 


Operating  Systems 


QA191H 

W.  Ortolani,  D.  Starbuck 
August  1976 
MSC,  Houston.,  Texas 
Contract  Number  NAS  9-15014 
FORTRAN  IV 

Digital  Equipment  Corporation  PDF  11/45 

DEC  CkiT  PuncHed  Card  Reader 

DEG  EK05  Disk  Drive 

DEC  LPll  Line  Printer 

DEC  LA30  DECwriter 

BUCODE  Mag  Tape  Drive  (4  each) 

DOS  8 


2.1-1 
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: 2'^  RE;qijES'T'  : 

Ref ferfence  Earth  Resources  Froductlon  Processing  Requiremen 
EOAP  Electronic  Sensors,:  PHO-523 , Section  17,  Field  Spectrometer. 


ri- 


» ^ V 


i ■ ■■  V ^ -■  '■  :;USAGE: 

te-r-  ■ •/ 

i\  . y. 


2<,3pl  Qp6i-itlonal  Procedureis 


QA191H  is  the  resident  program  to  be  executed  using  a Preprocessor  ('CCT'i 
9-track  tape  as  input  and  producing  output  productr  A dS  n ? 
inputs  and  outputs  for  QAi91H  is  shown  showing 

A typical  run  deck  setup  is  shown  in  Fisure  9 ^ r-9  mu  i i j. 

are  shown  in  Table  2 3 1-1  ^Snre  z.3.1-2.  The  lead,  card  setups 

. The  lead  card  setup  shown  in  Tahio  o 'k  t i ^ 

used  to  generate  all  outputs.  snown  in  iable  2,3. 1-1  is 

BKO  ana  . J ■ 

The  following  events  will  occur  during  execution: 

• Lead  cards  read  froia  card  reader. 

‘ Unf  P-i«ad  on 

• Data  being  read  from  MTO  . 

• Output  limit  sensing  results  to  line  printer. 

• Historical  data  being  read  from  MTl, 

• New  and  old  historical  data  output  to  line  printer. 

• New  and  old  historical  data  output  to  MTA0. 

Thn  oatputo  to  bn  expeotnd  fccn  QA191H  arn  dnactibnd  In  Appendloea  A,  B.  and  C. 


2.3-1 
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$JOB  QA191h[200,20o] 

$ME  MOUNT  QA191H  PROD.  DISK  ON  DKO 

$ME  MOUNT  PRODUCTION  UTILITY  SOEATCH.DISK  ON  DKl 

$ME  MOUNT  PRE-PROCESSOR  INPUT  TAPE  ON  MTO ; NO  RING 

$ME  MOUNT  HISTORICAL  INPUT  TAPE  ON  MTl;  NO  RING 

$ME  MOUlviT  HISTORICAL  OUTPUT'  TAPE  ON  MTAO;  WITH  RING 

^ME  MOUNT  SCRATCH  TAPE  ON  MTAl  j WITH  RING 

$WAIT 

$AS  MTO : ,9 

$AS  MTl;,  10 

$AS  MTAO:,  11 

$AS  MTA1:,12 

$RUN  PIP 

#DKO : ARR.TMPfzOO  ,200l/UN 
#DKO : ARR.TMP [200 , 200J  /DE 
#MTA0:/ZE 
MTklz/ZE 

$RUN  FLOAD.LDA [100,100] 

#/EXIT 

$RUN  DK0;QA191H.LDA[20O,20o] 

LEAD  CARDS 

(As  shown  in  Table  2. 3. 1-1) 

$FI 


Figure  2.3. 1-2  QA191H  Run  Deck  Setup 
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Table  2.3.t~lLead  Card  Setup  for  QA191H 


(Card 

Type 

Mnemonic 

01 

ISENSR 

= DEBUG' 


Description 


SERSOR  CODE 


RECORDING  FORMAT 


MISSION  NUMBER  (NEGATIVE  = 


FLIGHT  NIMBER 


SITE  NUMBER 


LINS  NUMBER 


RUN  NUMBER 


PROJECT  IDENTIFICATION 


TITLE  INFORMATION 


BASE  YEAR  OF  DATA  RECORDING  DATE 


BASE  MONTH  OF  DATA  RECORDING  DATE 


BASE  DAY  OF  DATA  RECORDING  DATE 


0=TAB  OUT  NEW  HISTORICAL  FILE. 


HISTORICAL  FILE 


2=<TAB  OUT  OLD  HISTORICAL  FILE  CStLY 


NO  OTHER  PROCESSING 


O-FILE  DELETION  IS  NOT  FEQUIRED 


1-FILE  DELETION  IS  REQUIRED 


TIME  OF  FILE  TO  BE  DELETED  IN  HOURS- 


COLUMNS  26-40  ARE  LEFT  BLANK 


2.3-4 


o Ej  U — J.  UXH  U 


Page  la 


Table  2.3. 1~1  Lead  Card  Setup  for  QAigiH 


•Card 

Type 


Mnemonic  Columns  Format  Range 


Description 


NUMBER  OF  OVERALL  TIME  PERIODS  TO 


PROCESS 


NUMBER  OF  CAL  PERIODS  TO  BE  PROCESSED 


NUMBER  OF  WAVELENGTH  CAL  PERIODS  TO 
PROCESS 


TOTAL  NUMBER  OF  TIMS  PRRTOnS  TO  BE 


PROCESSED  (NOVRL  + rWflAT.P 


NOVRL  + (NCALP*7.)  + (NWCAL*2)) 


.START  TIME  IN  HOURS.  MINUTES.  AND 

SECONDS  FOR  INTERVAL  OF  TAPE  TO 

PROCESS 


STOP  TIME  IN  HOURS,  MINUTES,  AND  I 

SECONDS  FOR  INTERVAL  OF  TAPE  TO  ! 


2.3-4a 


JSC-10140 


Page  2 


l^lLead  Card  Setup  for  QA191H 


Mnemonic  Columns  Format  Range 


15 


IBSPH 

21-25 

r 15 

ISBPM 

26-30 

15 

Description 


START  TIME  IN  HOURS.  MINUTES,  AND 


SECONDS  OF  THE  CALIBRATTOW  PERIOD (S 


TO  PROCESS 


STOP  TBIE  IN  HOURS.  MINUTES.  AND 


TO  PROCESS 


__START  TIME  IN  HOURS'.  MINUTES.  AND 


SECONDS  OF  THE  OVERALL  WAVELENGTH 
GAL  PERIOD  (S). 


STOP  TIME  IN  HOUR 


SECONDS  OF  THE  OVEFALT.  WAVRT.RWnTH 


CAL  PERIOD (S 


START  TIME  IN  HOURS.  MINUTES.  AWT) 


SECONDS  OF  THE  BIAS  VOT.TAnK 

PROCESSING  PERIOD 


31-40 


FIO.Q 


STOP  TIME  IN  HOURS,  MINUTES.  AND 
■SECONDS  OF  THE  BIAS  VOT.TAaR 


PROCESSING  PERIOD 


*Card  type  6 entered  NCALP  times.  * 

**Card  type  7 entered  NWGAL  times, 

***Card  typa  8 _ Is  antare^  raauastad 


Page 


Table 2.3 » 1-1  Lead  Card  Setup  for  QA191H 


Mnemonic  Coluams  Format  Range 


IHGSTM 

I 6-10 

■ 15 

STHCS 

11-20 

FIO.O 

lACSPH 

1 21-25 

15 

lAGSEM 

I 26-30 

15 

SPACS 

31-40 

FIO.O 

Description 


START  TIME  IN  HOURS,  MINUTES, AND 


SECONDS  OF  THE  HEATED  CAL  LIMITS 


PERIOD  FOR  RADIANCE  CAL  WHEEL 


SECONDS  OF  THE  HEATED  GAL  LIMITS 


PERIOD  FOR  radiance  GAL  WHEEL 


POSITION  CHECK 


START  TIME  IN  HOURS,  MINUTES,  AND 


SECONDS  OF  THE  SWL  GAL  LIMITS  PERIOD 


OR  RADIANCE  CAL  WHEELJPOSlTIQlUr  IL. 


{ f 


STOP  TIME  IN  HOURS,  MINUTES.  AND 


FOR  RADIANCE  CAL  WHEEL  POSITION  CHECK 


SECONDS  OF  AMBIENT  GAL  LIMITS  PERIOD 


FOR  RADIANCE  CAL  WHEEL  POSITION  CHECK 


STOP  TIME  IN  HOURS,  MINUTES,  AND 


FOR  RADIANCE  CAL  WHEEL  POSITION  CHECK 


*Gard  types  9 & 10  are  entered  NCALP  times,  one  card  for  each  cal  period  requested. 
**Card  type  11  entered  NCALP  times,  one  card  for  each  cal  period  requested, 

2.3-d - - 


■JSC-1014'0 
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Table  2 ,3.1-1  Lead  Card  Setup  for 


3M91H 


Card 

Type 


Mnemonic  Columns  Format  Range 


*12  IHRSTH 


15 


15 


FIO.O 


IHRSPH 

21-25 

15 

IHRSPM 

26-30 

15 

ISRSTM 

6-10 

15 

STSRS 

11-20 

FlOoO 

ISRSPH 


ISRSPM 


SPSRS 


ILTOL 


21-2 


26-30 


31-40 


15 


15 


FIO.O 


IWLSPM 

26-30 

15 

SPWLS 

31-40 

FIO.O 

Descript  ion 


STiiJlT  TIME  IN  HODRS,  MINUTES,  AtlD 


SECONDS  OF  HEATED  GAL  RESPONSIVITIES 


PROCESSING  PERIOD 


STOP  TIME  IN  HOURS,  MINUTES,  AND 


SECONDS  OF  HEATED  CAL  RESPONSIVITIES 


PROCESSING  PERIOD 


START  TIME  IN  HOURS',  MINUTES,  AND 


SECONDS  OF  SWL  CAL  RESPONSIVITIES 


PROCESSING  PERIOD 


STOP  TIME  IN  HOURS,  MINUTES,  AND 


PROCESSING  PERIOD  ! 


START  TIME  IN  HOURS,  MINUTES,  AND 


SECONDS  FOR  THE  WAVELENGTH  GAL 


PROCESSING  PERIOD 


STOP  TIME  IN  HOURS,  MINUTES,  AND 


SECONDS  FOR  THE  WAVELENGTH  CAL 


PROCESSING  PERIOD 


NUMBER  OF  CONSECUTIVE  CAL  PERIOD 


SCANS  TO  PROCESS  FOR  WAVELENGTH  RAMP 


CALCULATIONS 


THE  PLUS  OR  MINUS  TOLERANCE  LIMIT  FOR 


COUNT  DEVIATION  DURING  LINEARITY  j 
OF  SCAN  CHECK  \ 


*Gard  types  12  & 13  are  entered  NCALP  times,  one  card  for  each  cal  period  requested, 
**Card  type  14  entered  NWCAL  times . 

^.A-7 - 


liJ  O. 


^age  • 

Table  2.3;  1-1  Lead  Card  Setup  for  QA19111 


Card 

Type 

Mnemonic 

Co lumns 

Fotmat 

Range 

Description 

15 

ISYNC 

11-15 

15 

MINIMTM  PCM  COUNT  VALUE  OF  PARAMETERS 

■.A1._A_2^_A3.  A5  and  A6  FOR  VALID  S.YNC 

PULSES  

TEND 

16-20 

. 15 

MINIMUM  PGM  GQTTNT  VALUE  OF  A4  FOR  

VALID  END  OF  SCAN 

ISMIN 

21-25 

15 

MINIMUM  AND  MAXIMUM  NUMBER  OF  DATA 

ISMAX 

26-30 

15 

SAMPLES  FOR  VALID  SCAN 

16 

IBVHRa*) 

1-35 

715 

ASSIGNED  VALUE  RANGES  FOR  THE  BIAS 

IBVHRC7) 

VOLTAGE  HISTOGRAMS.  FIVE  CARDS  ARE 

1 

READ,  ONE  FOR  EACH  PARAMETER 

T 

IBVHR  (29') 

(IST  GARD=A1.  2ND  GARD=A2 . 3RD  CARD  = 

IBVHR  (35) 

A3,  4TH  CAED=A5,  5TH  CARD=A6)  , 

U 

li 

*17 

WVLNGH 

1-10 

FIO.O 

WAVEUINGTH  (X)  VALUE  FOR  EACH  PARAMETE 

TO  BE  USED  IN  RESPONSIVITY  CCMPUTATION 

FDORL 

11-20 

....._F10.._0 

_CAL_SGI]RG.E  BRlGHTIffiSS  (T.')  FOR  PARA- 

METERS  A2,  A3,  and  A5.  VALUE  FOR 

DICHROIG  REFLECTIVITY  (Pd)  FOR  PARA- 

• 

METER  A6. 

GBIASV  ...  _ 

21-30 

FIO.Q 

CHANNEL  BIAS  VOLTAGE  FOR  EACH  PARA- 

meter 

AGOEFZ 

31-40 

FIO.O 

RESPONSIVITY  POLYNMIAL  COEFFICIENT 

AGOEFl 

41-50 

FIO.O 

VALUES  FOR  EACH  PARAMETER.  FOR 

ACOEF2 

51-60 

FIO.O 

EXPANDING  WAVELENGTH  TO  A4  COUNTS. 

AG0EF3 

61-70 

FIO.O 

18 

IWLLO 

1-5 

15 

LOW  PGM  COUNT  LIMIT  OF  A4  FOR  WAVE- 

— 

LENGTH  CAL  PARABOLA  MATRIX. 

IWLHI 

6-10 

15 

HIGH  PCM  COUNT  LIMIT  OF  A4  FOR  WAf  ' 

r-- 

LENGTH  CAL  PARABOLA  MATRIX  ' 

*Card  type  17  entered  4 times,  one  card  for  each  parameter  . First  Card  =A2,  Second  Card 
= A3,  Third  Card  = A5,  Fourth  Card  = A6. 
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Table  2. 3, 1-1  Lead  Card  Setup  i’or  QA191H 


Card 

Type 

Mnemonic 

■ 

Co lumns 

Format 

Range 

Description 

*19 

IHMAX(I) 

1-10 

FIO.O 

MAXIMUM  AND  MINIMUM  TOLERANCE  LIMITS , 

IN  PCM  COUNTS,  FOR  PARAMETER  QUALITY 

CHECK.  FOUR  PAIRS  OF  LIMITS  PER  CARD, 

IN  THE  FOLLOWING  ORDER:  l=ZERO  VOLTS 

REF.;2=POWER  SUPPLY  DIAG;3=PACKAGE 

•• 

TEMP;4=DATA  PALLET  TEMP : 5=SPEGTR(METER 

PALLET  TEMP;6=DICHROIG  TEMP;7=INT. 

SPHERE  TEMP;8=MIRROW  TEMP ; 9=HEATED 

' 

' 

CAL  miP;lo=AMBIENT  CAL  TEMP;11-LWL 

DETECTOR  TEMP ; 12=^HERMAL  REF  TEMP; 

13=SWL  CAL  LAMP. 

IRMAXfI'k 

1-5 

15. 

MAXIMUM  AND  MINIMUM  TOLERANCE  LIMITS, 

' h 

IRMIN(I) 

6-10 

15“ 

I = 1,  4 

' 

RADIANCE  CAL  WHEEL  POSITION.  FOUR 

PAIRS  OF  LIMITS  IN  THE  FOLLOWING  ORDER: 

1=FIELD  DATA  LIMITS:  2-HEATED  CAL 

LIMITS;  3-SWL  GAL  LIMITS:  4=AMBIENT 

CAL  LIMITS. 

nnniiiinn 

21 

IFMAX(I) 

15 

MAXIMUM  AND  MINIMUM  TOLERANCE  LIMITS 

15 

IN  PCM  COUNTS.  FOR  QUALITY  CHECK  OF 

I = 1,  3 

FOV  FLAG.  THREE  PAIRS  OF  LIMITS  IN 

* 

IHE  FOLLOWING  ORDER:  l=BOXH  CHANNELS 

ACTIVE;  2=SWL  CHANNEL  ACTIVE:  3=LWL 

CHANNEL  ACTIVE. 

i 

• 

1 

j 

1 

1 

* 2 cards:  8 values  in  first  card;  5 values  in  second. 

2.3-9 


JSG~10140 


2,3,2  Hardware  Configuration.  Required 


« 


DEC  Writer 
Card  Reader 


• Line  printer 
0 ?ape  drives  (4) 


0 Disk  drives  (1) 

The  normal  tape  drive  to  logical  unit  assignments  are: 

$AS  MTO: ,9 
$AS  MT1:,10 
$AS  MTAO: ,11 
$AS  MTAl: ,12 

The.e  of  LVirefto 

2.3,3  Restrictions  <. 

A.  The  maximum  number  of  overall  time  intervals  requested  may  not  exceed  20, 
for  any  one  run. 

B Th-  maximum  number  of  Calibration  periods  and  Wavelength  Gal  periods 
requ“  may  not  exceed  5 (each)  for  a, ay  one  run. 


2.3.4  Error  Diagnostics 

A r the  error  diagnostics  which  may  be  printed  by  the  Production 

ProSssing  System.  QA191H  error  messages  are  included  in  this  list. 


2,3,5  Core/Disk  Reouirements 

A.  See  Figures  2. 3. 5-1  and  2. 3. 5-2  for  virtual  and  physical  core  require- 
ments . 

-p-fTa  ART?  TMP  reauires  4325  words  of  disk  space4 

B.  The  temporary  storage  file  ARR-imr,  requires 
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Allocation  of  Addressable  Core  for 


Physical  Core  Requirements 

Hcwory  Happing  Configuration 


BlrtfRQ.*  AUpfiO.  VV.PHD.  KAKpi!0<  RtSpM‘1 

. kKtt  ; ILL  HMW  1- 


QAtUH.  HECPip. 
Qqq  EKB 


■ t i 

FlOPPO.  ! 

yj  J 

U i ^ 3l\ 


WhlooP- 
j ppp 


DOS 

Resident  Program 
LSAiPiH.LDA 

load  Modules 
QAEXEC.ggg 
EEROP'/^  HNH 
DCM-PeV.  x:ix 
FID  PRO.  TJJ 
Rift  FRO.  KKK 
AHPRO. LLL 
WVLPRO.  KMIA 


ReSPRO.  000 
TMLODP.  ppp 


S.’TK 

'T.2K 

ll.iK 

R. ^K 

S. 1K 

6..0K 

• fo.lHK 
n,^K 
3.15  K 
P.4n 

9.\K 


Data  Areas  Kp. 

Mame  Size  Alloc. 

PgMBUF.DAi  l(li  i 


t^AldlH.LDA 


5 

4 

DO 

i 

Total  Physical  Core  |03.5  K. 


Figure  2.3.5’-2  Allocation  of  Addressaljle  & Physical  Core  For  QAISIH 
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ANALYSIS 


2.4.1  Description 

QA191H  is  the  core  resident  program  which  t-ontrols  the  data  processing  by  testing 
for  options  and  times  and  calling  the  appropriate  programs.  Program  control 
information  is  read  from  lead  cards  by  calling  GONDRV.  Control  information 
is  used  for  data  identification,  tolerance  limits,  processing  options,  tabulacion 
option,  and  file  deletion  options.  There  are  four  primary  processing  modes. 

One  is  for  field  data  housekeeping  parameters j a second  is  for  Calibration  period 
data,  a third  is  for  wavelength  cal  period  data,  and  the  fourth  is  for  building 
a new  Historical  Data  File  tape.  The  processing  modes  are  as  follows; 


A.  The  field  data  housekeeping  parameters  are  processed  to  test  actual 
data  values  against  nominal  tolerance  limits. 


1 ) 


'! ! 
i ; 
! * 
! 1 
I i 


1 > 


: i 


Subroutine  DECRIP  is  called  to  read  the  descriptor  file  from  the 
S191H  preprocessor  9-track  tape  and  store  the  header  information 
for  DCCM2N. 

Subroutine  DCC812N  is  called  to  read  the  data  from  the  S191H  preprocessor 
9-track  tape  and  store  it  in  a common  array. 

Subroutine  FLDPRO  is  called  to  initiate  housekeeping  parameter 
checks.  The  tolerance  limits,  in  PCM  counts,  are  initiated  for  those 
parameters  being  tested  and  an  algorithm  is  used  to  determine  the 
location  of  the  start  of  the  first  whole  scan  of  data  in  the  MEAS 
array.  Each  parameter  data  sample  is  then  compared  with  its 
associated  set  of  limits. 

If  any  of  the  sample  values  exceed  the  tolerance  limits,  subroutine 
ANPRO  is  called  to  process  the  anomaly.  ANPRO  first  checks  to 
determine  if  the  particular  parameter  on  which  the  anomaly  occurred 
also  had  an  anomalous  value  on  the  preceding  sample.  The  first  time 
two  consecutive  sample  anomalies  are  detected  for  a given  parameter, 
a flag  is  set  and  a counter  is  initiated.  Thereafter,  for  a pre- 
determined number  of  scans,  the  counter  keeps  a running  total  of  all 
anomalies  that  occur  on  that  parameter.  When  the  predetermined 
number  of  scans  have  been  processed  or  the  time  between  frames  has 
equalled  or  exceeded  30  seconds,  the  anomaly  total,  the  number  of 
scans,  and  parameter  identification  is  output  to  the  line  printer. 

If  the  anomaly  is  the  first  of  a series  or  the  only  one  detected,  the 
PCM  count  value  of  the  sample  is  converted  to  appropriate  engineering 
values  and  the  time  parameter  and  value  is  output  to  the  line  printer. 

If  Calibration  period  data  is  to  be  processed,  subroutine  RAMPRO  is 
called  to  compute  wavelength  ramp  data.  For  a predetermined  number  of  con- 
secutive valid  scans,  the  peak  and  minimum  PCM  count  >^alues  for  channel  A4 
are  determined.  Those  A4  values  for  the  total  number  of  scans  are  used 
to  compute  the  average  and  standard  deviation  values.  An  algorithm 
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is  used  to  compute  a nominal  straight  line  value  for  the  channel 
A4  ramp  of  each  scan.  The  actual  A4  PCM  values  are  compared  with 
the  computed  straight  line  values,  sample  for  sample,  and  if  the 
actual  values  fall  within  a nominal  tolerance  limit,  the  BMS  devia- 
tion is  computed  for  all  sample  values.  If  a value  exceeds  the 
straight  line  limits,  all  samples  for  that  scan  are  rejected,  the 
A4  PGM  count  of  the  anomalous  sample  is  converted  to  volts,  and 
the  data  is  output  to  the  line  printer  with  an  identifying  label 
and  time.  The  length  of  time  of  each  valid  scan  is  computed  and 
stored  in  order  that  the  average  length  of  time  for  the  group  of 
consecutive  valid  scans  may  be  determined.  The  sync  pulses  are 
also  tested  at  the  start  of  each  scan.  When  a start  of  scan  is 
detected,  the  first  data  sample  of  all  channels  except  A4  are  checked 
for  saturation  (PCM  count  1020) . If  any  of  the  five  channels  do  not 
satisfy  the  saturation  criteria,  the  frame  time,  channel  number 
and  value,  and  anomaly  description  are  output  to  the  line  printer. 

The  computed  values  for  A4  peak  and  minimum  voltage,  BMS  deviation, 
and  average  scan  length  are  stored  for  building  the  Historical  Data 
file. 


Subroutine  BIAPRO  is  called  to  process  bias  voltage  data  when  the 
control  card  input  times  are  satisfied.  Histograms  of  the  bias 
voltages  on  channels  Al,  A2,  A3,  AS,  and  A6  are  generated  from  2 
seconds  (approximately  2 scans)  of  data.  Arrays  are  initiated  for 
the  five  channels,  and  the  PCM  count  values  of  the  channel  data 
samples  are  enumerated  within  seven  specified  value  ranges.  The 
PCM  values  for  the  sync  pulses  and  for  the  four  data  samples  on 
each  side  of  the  sync  pulses  are  not  used  in  the  histograming  process 
The  Histograms  for  each  of  the  five  channels  are  stored  for  building 
the  Historical  Data  file. 


The  calibration  period  data  on  the  preprocessor  9-track  tape  repre- 
sents three  different  phases  in  the  calibration  cycle;  the  ambient 
cal  period^  the  heated  cal  period,  and  the  SWL  cal  period.  The 
representative  times  for  these  three  periods  are  input  to  the 
processor  by  control  cards. 


During  the  SWL  cal  period  POM  count  tolerance  limits  are 
initiated  for  the  SWL  Cal  lamp  and  Radiance  Cal  Wheel  position  checks. 
The  PCM  value  of  each  SWL  Cal  lamp  data  sample  is  tested  against  the 
tolerance  limits.  If  an  actual  value  exceeds  the  limits,  the  PGM 
value  is  converted  to  volts,  and  the  anomaly  data  is  output  to  the 
line  printer.  The  SWL  Gal  lamp  PGM  values  are  tested  only  during 
the  SWL  Cal  period. 
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Similarly,  during  the  heated  cal  and  ambient  cal  periods,  different 
PCM  count  tolerance  limits  are  initiated  for  the  Radiance  Cal  Wheel 
position  checks. 


Responsivities  will  he  derived  from  one  wavelength  in  each  of  channels 
A2,  A3,  A5,  and  A6  using  20  consecutive  valid  scans  of  calibration 
period  data.  Channels  A2,  A3,  and  A5  are  derived  from  the  SWL  cal 
period  data,  and  channel  A6  is  derived  from  the  heated  cal  period 
data.  No  responsivities  are  processed  from  the  ambient  cal  period 
data.  Subroutine  RESPRO  is  called  to  compute  the  responsivities, 

A polynomial  algorithm  using  a coefficient  table  converts  the 
requested  wavelengths  to  a representative  channel  A4  PCM  count. 

The  channel  A4  data  drift  correction  is  inserted  by  multiplying  the 
PGM  count  by  the  ratio  of  the  peak  value  of  A4  for  the  given  scan 
over  the  nominal  A4  peak  value.  The  actual  A4  PCM  count  closest  to 
the  computed  value  is  determined  for  each  of  the  20  scans.  The 
actual  PCM  count  is  then  averaged  with  the  two  preceding  and  two 
following  sample  counts.  The  20  computed  values  are  then  converted 
to  volts,  and  the  average  and  standard  deviation  values  are  obtained. 
Channel  bias  voltages  are  then  subtracted  from  the  averages  to  obtain 
the  signal  volts.  The  responsivity  for  channels  A2,  A3,  and  A5  are 
derived  by  dividing  the  signal  volts  by  the  wavelength  brightness  of 
the  associated  wavelength.  The  wavelength  and  wavelength  brightness 
values  are  input  through  control  cards,  as  are  the  channel  bias 
voltages.  To  obtain  the  responsivity  for  channel  A6,  the  reference 
source,  heated  cal  source,  and  dichroic  temperatures  are  derived 
for  that  cal  period.  These  temperatures  are  used  to  calculate  Heated 
source  radiance  and  Reference  source  radiance.  Responsivicy  is  then 
obtained  by  dividing  the  channel  A6  signal  volts  by  the  Heated  source 
radiance  minus  the  Reference  source  radiance.  The  noise-equivalent 
spectral  radiance  (NESR)  for  each  channel  is  obtained  by  dividing  its 
standard  deviation  value  (Koise)  by  its  responsivity  value.  The  responsi- 
vity,  noise,  and  NESR  data  is  then  stored  for  building  the  Historical 
Data  file. 

All  the  housekeeping  parameters  that  are  tested  during  field  data 
..processing  are  also  tested  during  the  calibration  periods.  The 
Ambient  Cal  Temperature,  Heated  Cal  Temperature,  and  SWL  Cal  Lamp 
parameters  are  not  tested  during  field  data  processing.  These  three 
parameters  are  only  tested  when  their  associated  cal  period  data  is 
processed.  Most  of  the  housekeeping  parameters  require  only  one  set 
of  PCM  count  tolerance  limits.  The  following  parameters  are  exceptions: 
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1.  The  Radiance  Gal  Wheel  Position  parameter  requires  four  sets 
of  PCM  count  tolerance  limits o A separate  set  of  limits  is 
recyiired  while  processing  field  data,  heated  cal  data,  SWL 
cal  data,  and  ambient  cal  data, 

2.  The 'Field  of  View  flag  parameter  requires  three  sets  of  PCM 
count  tolerance  limits,  A separate  set  of  limits  is  required 
for  the  three  conditions;  both  channels  active,  LWL  channel 
only  active,  or  St'JL  channel  only  active, 

3.  The  LWL  Detector  Temperature  parameter  requires  only  one  set 
of  tolerance  limits,  but  when  bias  voltage  is  being  processed, 
during  the  cal  periods,  the  limits  are  set  for  saturated  data 
(between  1020  and  1023  counts) . 

4.  One  set  of  initial  tolerance  limits  are  required  for  the 
Dichroic  Temperature  and  Thermal  Reference  Source  Temperature 
parameters.  The  tolerance  limits  for  subsequent  processing 
periods  are  derived  during  the  calibration  period  data  processing. 

All  tolerance  limit  values,  except  those  derived  in  real  time,  are 
input  through  control  cards. 

Subroutine  WVLPRO  is  called  to  process  wavelength  cal  data.  The 
first  twenty  valid  scans  of  wavelength  cal  data  are  processed. 
Predetermined  value  limits  for  channel  A4  PGM  counts  are  initiated, 
and  arrays  are  used  to  build  matrices  of  ail  values  of  channels  A2, 

A3,  A4,  and  A5  whose  data  sample  positidn  is  within  the  channel  A4 
limits.  Beginning  with  channel  A3  and  ending  xirith  A2,  the  values 
in  each  scan  of  channels  A3,  A5,  or  A2  are  tested.  The  channel  data 
is  rejected  if  any  values  x^ithin  the  A4  range  exceed  1000  counts 
(saturation) . The  first  channel  whose  twenty  scans  of  data  contain 
no  saturation  is  selected  for  processing.  Within  the  matrix  of  the 
chosen  channel,  a high  and  low  range  of  values  and  their  relative 
A4  values  are  determined,  A least  squares  regression  of  the  output 
detector  channel  values  is  performed  on  the  A4  values,  and  the  PCM 
value  of  A4  at  the  vertex  of  the  parabola  is  computed.  The  computed 
A4  values  are  biased  by  the  ratio  of  the  actual  A4  peak  count  over  a 
nominal  count  value,  to  compensate  for  A4  drift.  The  chosen  channel 
now  has  20  computed  values  of  A4,  for  which  average  and  standard 
deviation  is  computed.  These  values,  in  PCM  counts,  are  stored  for 
building  the  Historical  File. 

After  all  time  intervals  have  been  processed,  subroutine  QAStM  is 
called  to  print  a summary  of  the  data  derived  during  the  processing. 
This  summary  includes  the  total  number  of  anomalies  found  on  each 
housekeeping  parameter  and  flags  to  indicate  any  excessively 
erroneous  data  areas. 
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A new  Historical  Data  file  tape  is  then  built.  The  data  from  the 
old  Historical  Data  file  tape  is  read,  and  the  data  frame  time  for 
each  file  is  checked.  If  IHTAB  equals  one,  the  old  historical 
files  are  output  to  the  line  printer  as  they  are  read.  The  old 
data  frame  times  are  compared  with  the  frame  time  for  the  new 
historical  data,  and  the  old  data  is  output  to  the  new  Historical 
Data  file  tape  until  the  time  period  for  the  new  data  is  fou^d. 

The  new  historical  file  is  then  output  to  the  line  printer  and  the 
new  Historical  Data  file  tape.  After  the  new  historical  file  has 
been  output,  and  if  the  E.O.F,  on  the  old  historical  file  tape  has 
not  been  reached,  the  remaining  files  on  the  old  historical  tape 
are  read  and  output  to  the  new  Historical  Data  file  tape  and  line 
printer  (if  requested) . 

By  setting  IHTAB  equal  to  2 in  the  Lead  Card  Setup,  the  old  Historical 
File  tape  can  be  dumped  in  its  entirety  to  the  line  printer.  No 
other  processing  is  performed.  'J? 
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Figure  2.4-1  QA191H  DATA  FLCW  , 
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FLDPRO 

.1,  , ^ 

Initializes  parameter  tolerance  limits 

Checks  Field  Data  paramateis  values  against  Ifcftita 


Any  \ 
anomaly 
found  > 


Processs^ 
W/L  Cal  Data 


WVLPRO 


Determines  data  interval  of  channel  A4  samples  within  pre-selectec 
low  and  high  value  limits. 

Builds  matrices  of  all  values  of  channels  A2,  A3,  A4,  and  A5 
associated  with  the  A4  data  interval. 

Does  progressive  testing  on  values  of  channel  A3,  AS,  and  A2,  in 
that  order,  to  detect  saturated  data. 

Selects  the  first  channel  without  saturated  data  for  20  consecuti\ 
scans . 

Determines  first  and  last  oocurrenceof  the  highest  PCM  value 
within  the  matrix  of  the  selected  channel. 

Determines  range  of  values  in  channel  matrix  bounded  by  values 
equal  to  one-third  the  highest  value. 

Computes  parabola  fit  of  channel  matrix  values  on  channel  A4  data, 
within  the  range. 

Determines  vertex  of  each  parabola  (A4HG)  for  20  scans  of  the 
selected  channel. 

Compensate  for  channel  A4  drift. 

Compute  average  and  standard  deviation,  in  PCM  counts,  for  the 
20  values  of  A4HG. 

Store  data  for  Historical  File, 
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Gotaputes  A4  peak  and'  minimua  average  velC^ge  and  standard  ' 

, deviation  in  voltp  : 1 , . , , , 

. GompuJ:es,  nominal  straight  line  valtifi  xamp  fpr  ,eac^  span^  , 

in  PCM  counts  j 

Computes  SMS  deviation  in  PCM  counts  for  pctual  A4  PCk  cpun't 
values  ....  • i ■ I : - ■ 

Compares  actual  A4  PGM  values  against  computed  straigjit  line, 
plus  or  minus  tolerance  limit,  and  labels^  anomalies  | 

. ,r.^  - . -j , , , I , -i  . — J.-  - . , . 4-  , 

Rejects  non-valid  scjans  , ■ | 1 i : 

Computes  average  scan  length  in  seconds  fjor  total  nuni>er  ofl 
valid*  scans  processed  * * | ; ' i 

Checks  sync  pulses  for  validity  and  labeljs  anomalies  ' ' 

Storeys  A4  peak  an^  miinlinum!  ramp  data*  iSMS]  deviation,  and  i 
' avera^ge  scan  length  ifort  H3^to|rical  file  bnilding  , | i i t • 


r- 


‘ 'I  . i 

■ t !' 


anomalies 

found. 


Y-as  • 


( ) 


JSC-10140 


a^ro 


A4  straight  line  anomalies  are  converted  to  volts 
Prints  out  A4  straight  line  and  sync  pulse  anomalies 


^^rocessv 
fespons  ivity 
Data 


(1 


B 


respro  — 

value  by  the  peai  A4  value  of^the^elvan^’’^’"^”®  xavelongth  PCM 
A4  value  (983  counts)  given  scan  over  the  nominal  peal 

=»-nel  A4. 

PCM  value.  equals  or  exceeds  wavelength 

™luefofeSfaSr"°' 

Convert  thl^a^^^  output  detector  values, 

converted  valuerior°20^consecSive  IJans! 

InsLt  chanSrbSs  vStfge^coSJti°''  stored  values, 

detector.  voltage  correction  for  the  associated  output 

Compute  responsivities  for  channels  A2  A3  ak 

UU4  „3. 

channels standard  deviations  to  compute  NESR  for  all 

Store  responsivity,  noise,  and  NESR  data  for  Historical  File. 
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Determines  if  anomalies  of  a particular  parameter  have  occurred 
on  previous  samples  _ . . 

If  previous  anomalies  have  occurred,  a counter  xs  xnitiate  or 
incremented,  and  a running  total  of  anomalies,  by  parameter,  is 

kept  . . 

After  a determined  number  of  scans,  or  if  the  data  interval  ter- 
minates, the  anomaly  total  for  a particular  parameter  xs  computed 

If  no  anomaly  occurred  on  the  previous  scan,  the  parameter  PCM 
count  value  is  converted  to  temperature  or  voltage 

Parameter  anomaly  data  is  printed  out 

Parameter  anomaly  flags  and  counters  are  cleared. 
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QASTM 

o Compiles  a summary  of  the  data  derived  during  field,  cal  period, 
and  wavelength  cal  period  checks 

o Prints  out  the  summary  of  the  data 


^ Reads  >> 
&±le.  from  ' 
(old  his tor 3 
\ tape  j 


^ E.O.P>s^ 
'iin  old  tape 


'dinterval  foi 
new  history 
file  / 


^Should 
^.✓tJld  and  new^\ 
vfile  be  printed 


'^Delete^ 
old  file 
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2.4.2  Inputs/Outpu cc 

A.  Inputs  -S191H.  , 

1.  9 -Track  Time  Edite<3.  Tape  - (Reference  Eartk  Resoarees. 

. Data  Format  Control  Book.  Section  2.2.47 The 

following  is  a measurement  number  list  specifying 
units  and  digital  range  for  each  measurement. 


ID 

MEASUREMENT 

UNITS 

AOOl-RRQ 

Long  Wavelength  Radiance,  detector  neg. 

PCM  CNTS 

0-1023 

iA002-ERO 

Short  Wavelength  Radiance,  //3  detector 

PCM  CNTS^ 

0-1023 

!a003-RRO  ' 

Short  Wavelength  Radiance,  //I  detector 

PCM  CNTS 

0-1023 

|aoo4-rro  ' 

Filter  Position  Monitor 

PCM  UNTS' 

0-1023 

A005-RIO 

Short  Wavelength  Radiance,  #2  detector 

PCM  CNTS 

0-1023 

1A006-SRO 

Long  Wavelength  Radiance,  detector  Pos. 

PCM  CNTS 

0-1023 

A007-RRO 

Data  Pallet  Temp 

PCM  CNTS 

0-1023 

A008-RRO 

Spectrometer  Pallet  Temp 

PCM  CNTS 

0-1023' 

'aO09-»»O 

Mirror  Temperature 

•PCM  CNTS 

0rl023 

Aoi3-Rao 

Heated  Calibration  temperature  source 

PCM  CNTS 

0-1023 

A014-R^O 

Ambient  Calibration  temp,  source 

PCM  CNTS 

0-1023 

A015-RRO 

Integrated  Sphere  Temp 

PCM  CUTS 

0-1023 

: 

Radiance  Calibration  wheel  position 

PCM  CNTS 

0-1023 

D00^6-K^O  ' 

Field  of  View  flag  measu^ej^ent 

sen  CNTS 

0-1023 

D007-^^° 

Zero  Volts 

PCM  CNTS 

: 0-1023 

A0X6-^^° 

Power  Supply  diagnostic 

PCM  CNTS 

■Q-1023 

Aoi7^RRO 

Thermal  reference  source  temp. 

PCM  CNTS 

0-1023 

A018-^^° 

Package  temperature 

PCM  CNTS 

0-1023 

■ A019-^^° 

Bichroic  temperature 

PCM  CNTS 

0-1023 

A020-.^f° 

Long  Wavelength  detector  temp 

PCM  CNTS 

0-1023 

mm 

Calibration  lamp  current 

PCM  CNTS 

0-1023 

2,  Control  Input  - Control  input  parameters  are  described 
in  the  lead  card  setup.  Table  2,3. 1-1. 

Historical  File  Tape  - A 9-track  tape  containing  records 
of  previously  run  QA191H  Historical  File  in  chronological 
order. 
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s /Outputs  (CONT.)  ; ' 

Outputs  \ 

Tabulatioa 

1.  OA191H  anomalies  list 

All  parameters  whose  PdU  co'auLt' value  ejcceeds  the  high 
or  low  toleiauce  limit  wiil  be  printed  out,  along  with 
the  frame  time',  record  numbt^r,  and  value  of  the  data 
sample.  During  the  calibration  period,  non-yalid  sync 
pulses  and  A.4  parameter  values  that  exceed  the  straight 
line  valuey  yplus  dr  minus:  a toleurance,  will  also  be 
printed  out>  with  their  aas<3diatad'  frame  time,  record 
ntmiber  , and  data:  values  . : ^ ' ^ 

2.  QA191H  TEST  SUMMARY 

A grand  total  of  all  anomalies  detected  will  be  listed, 
by  parameter. 

3.  HISTORICAL  PILE  TAB 

A listing  of  the  values  derived  during  calibration, 
wavelength  calibration,  and  a histogram  of  the  Bias 
Voltage  PCM  values  is  output.  If  no  calibration  or 
wavelength  calibration  petlod  is  on  the  processed  tape, 
it  will  be  so  noted  on  the  Historical  File  Tab.  Upon 
request,  all  previously  derived  Historical  Files  on  the 
Old  Historical  File  Tape  will  also  be  tabbed;  out,  as  the 
new  Historicil  File  Tape  i's  beinig  built, 

COMPUTER  TAPES 

1,  A new  Historical  File  Tape  is  generated  at  the  end  of 

each  QA191H  run.  The  new  tape  will  contain  all  the  files 
on  the  old  Historical  File  Tape,  as  well  as  the  new 
Historical  File,  The  new  file  is  inserted  in  the  correct 
chronological  order,  based  on  the  date  of  data  generation. 


r 

Z.4-15 


JSC-10140 


2.4.3  Linkages  (External) 

Reference  Earth  Resources  Processing  Subsystem  Support.  Sc-«frwarp-  Document 
tation  for  linkage  details.  Document  numbers  an;  indicated  below. 

A.  CONINP  - Control  Input  Processor  (ERS- 300-01) 


1 . Input 

« Data  cards  containing  control  input  information  - 
user  input 

• Block  COMMON  containing  formatting  and  processing 
information  related  to  the  functional  reading  of 
the  input  cards  and  bounding  information  to  facili- 
tate the  error  processing  of  data  read.  The  COMMON 
blocks  which  transmit  information  to  CONINP  are  named 
/RDCNTl/  and  /RDARG/ 

2.  Output 

ff  Data  arrays  containing  S191H  control  input  parameters. 
The  named  COMMONS  /TIMES/ j /TITLES/ , and  /INPUT/  contain 
the  stored  parameters  read  from  the  input  cards 

• An  array  of  error  codes  transmitted  by  COMMON  block 
/ERROR/  (maximum  20) 

B.  DC0M2N  - Decommutation  Processor  Step  2 (ERS-300-02) 


jl.  Inpyl 

I 

j » Start  and  stop  times  for  extracting  input  data  from 
; the  disk  or  9- track  tapes 

• Array  of  measurement  ID’s  for  QA191H 

e Maximum  number  of  frames  to  retrieve 

o Block  COMMON  containing  format  and  processing  infor- 
mation related  to  the  functional  reading  of  data  from 
the  disk  or  9- track  tape  into  core 

2.  Output 

• Actual  number  of  frames  retrieved 

• Time  of  last  frame  returned 

e Data  array  for  each  measurement  ID  specified 

• Array  of  error  codes  (maximum  20) 

/ 

ij 

■*2.4-16‘ 
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C,  ERR^RC  - Error  Processor  (ERS-300-07) 

1.  Input 

• Error  code  array  (maximum  size  20  words) 

2.  Output 

• Error  messages 

• Executes  proper  option  for  tennination  of  job  or 
returns  to  calling  program 

D.  DCS.IPT  “ Descriptor  File  Decoder  for  Non-Imagery  Data 

Tape  (ERS-300-02) 

1 , Input 

• Descriptor  record  retrieval  request  flag 

• The  format  number 

• Indicator  of  input  source  as  disk  or  tape 

• Starting  record  where  data  is  to  be  read 

• The  last  record  in  the  disk  file  to  be  read  if 
applicable 

« Logical  unit  number  for  the  input  tape  or  disk 
« Size  of  the  measurement  array 

• Block  data  containing  the  ASCII  representation 
for  each  measurement  code  to  be  extracted 

• Measurement  list  identifier 

2 . Output 

9 An  array  containing  descriptor  file  information 
for  desired  measurements 

• The  software  routine  status  flag 
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2.4,4  SPECIAL  TECHNIQUES 
None  required. 
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2.5  FLOW  CHARTS 


The  detailed  flow  charts  on  the  following  pages  reflect  all  program,  decision 
points,  linkages  with  the  operating  system,  and  all  significant  computational 
and  programming  steps. 
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p«iJD)(i(2.,i)=  MauRP./!(;,  Vi 
FRWOiCS  (?/X)^HC,URE> 


tew 


Coajtxwue: 


(3# 


rbpbodugbduity  of  Tm 

ORIOINAli  PAG3S  IS  POOBi 


2,5-281 


2.5-287 


TCCH  an  ^ 1 


JSC“10X40 


fnovs  RA  R-r  <=f=s 
jSdA  M 'T'"  C.H  . A-^ 
ARRA>'r 


Reproducibility  of  Tug 

‘•’Jtginal  paos  is  poobl 


2,5-291 


JSC-1014Q 


LAN  = 5 


2.5-294 


JSC-10140 


2.5-296 


2.5-304 


2.5-309 


JSG-10140 


JSC-10X40 


A33rm(^ij  ijrsMuiw 
ASXM^  SN/H4- 


2.5-322 


JSC-10140 


2.5-324 


2.5-326 


JSC~i014Q 


1 


2,5-327 


JSC-10140 


JSC‘-10X40 


OF  THi 

ORtGINMi  MGS  m POOR 


2.5-332 


JSC-10140 


2.6  STORAGE  REQUIREMENTS 


The  storage  requirements  for  QA191H  may  be  determined  by  referring 
to  the  program  listing  on  2.10. 


2.6-1 


2,7  NAMED  COMMONS 


Figure  2.7-1  is  a cross  reference  of  the  nasied  commons 
QA191H  program  with  the  resident  program,  load  modules 
and  subroutines. 


2.7-1 


used  by  the 
data  areas. 


I 


Figure  2,7-1  Cross  Reference  of  Named  Commons  with  the  Resident 
program,  Load  Modules,  Data  Areas,  and  Subroutines  for  QA191H. 


2.7-2 


Table  1.1-2 Layout  of  Mamed  Common  ANDAT 

for  0A191H  


Integer 
Word  !:  umber 
In  - . ...mon 

Pro  gram 
f j j bo  i 

u iinen.'t  io  n 

Typo  1 

Uni  t a 

Jesoriptioii 

1 

JPAR 

1 

SPI 

PARAMETER  CODE  FOR  ANCMALY  PROGESSUR  (ANPRU) 

2 

NSAM 

1 

SPI 

1 POINTER  FOR  ANCMALOUS  SAMPLE  IN  MEAS  ARRAY 

3 

LAN 

1 

SPI 

FAILURE  CODE  FOR  ANOMALY  PROCESSOR  (ANPRO) 

4 

MACT 

1 

SPI 

; ACTIVE  ANOMALY  COUNTER  FT^G 

5-19 

ANSTAT 

15 

SPI 

STATUS  INDICATOR  FOR  ANOMALY  COUNTERS 

20 

KRET 

1 

SPI 

1 FLAG  FOR  RETURNING  PROGRAM  CONTROL  FRCM  ANPRO 

1 

21 

ANCNTR  ; 

15 

i SPI 

ANOMALY  COUNTERS  FOR  ANOMALY  SUB-TOTALS 

36-50 

ANREC  1 

15 

: SPI 

RECORD  POINTER  TO  FLAG  ANOMALY  SUB-TOTAL  PRINT 

51-Rfi 

TANCTR  ' 

18 

SPR 

ANOMALY  COUNTERS  FOR  ANOMALY  GRAND  TOTALS 

87 

IRESFG 

1 

SPI 

FLAG  FOR  INDICATING  ABORTED  RESPONSIVITY  CALCULATIONS 

88 

IWLFG 

1 

SPI 

FLAG  FOR  INDICATING  ABORTED  W/L  CAL  CALCULATIONS 

89 

IRAMFG 

1 

SPI 

FLAG  FOR  INDICATING  ABORTED  W/L  RAMP  CALCULATIONS 

90 

LZNE 

1 

SPI 

LINE  COUNTER  FOR  ANOMALY  PRINT  OUT 

91 

IPG 

1 

1 

SPI 

PAGE  COUNTER  FOR  ANOMALY  PRINT  OUT 

. 

i 

1 : . 

JSC-10140 


Layout  of  Named  Common  CALRT 

for  QA191H 


Units 

Description 

1 

1 

FLAG  FOR  INDICATING  HEATED  CAL  RESPONSIVITY  COMPLETED 

PCM 

DICHROIC  TEMPERATURE  EXTRAClfiD  FROM  HEATED  CAL 

PCM 

THERMAL  REF,  TEMPERATURE  EXTRACTED  FRCM  HRATm  CAL 

Integer 

rd  number  I Program 


^ Layout  of  Named  Cominon 

fo^-  QA191H 


DCARGN 


Dimension  iType  Units 


Description 


DCARGN 


THE  NAMED  CCMMON  DCARGN,  WHICH  FORMS  THE  INTERFACE  FOR  THE  TAPE 
INPUT  ROUTINES  DECRIP  AND  DCMDRV,  IS  DESCRIBED  IN  SECTION  2 ,2. 4. 2 
_OF  DOCUMENT  NUMBER  ERS-300-02,  "EARTH  RESOURCES  DATA  DECCg^MUTATIO 
PROGRAMS" 


f 2.7-7 

LAYOUT  OF  NAMED  COMMON  DCDATA  FOR  QA191H 


MEAS  ARRAY  INDICES 


SAMPLE  RATE 
( SAMPLES//FRAME) 

MEASUREMENT 

NUMBER 

NO.  OF  SAMPLES 
PER  MEAS  ARRAY 

TIME 

DELTA 

TIME 

WORD 

INDEX 

NO.  OF 
VALUES 

NO.  OF  16 -BIT 
LOCATIONS  REQ. 

FIRST  DATA  VALUE 
LOCATION 

1. 

1 

D007-RRO 

18 

1 

85 

169 

190 

211 

232 

2. 

1 

A016-RRO 

18 

5 

89 

170 

191 

212 

250 

3. 

1 

A018-RRO 

18 

9 

93 

171 

192 

213 

268 

4. 

1 

A007-RRO 

18 

13 

97 

172 

193 

214 

286 

5. 

1 

A008-RRO 

18 

17 

101 

173 

194 

215 

304 

6 . 

1 

A019-RR0 

18 

21 

105 

174 

195 

216 

322 

7. 

1 

A015-RRO 

18 

25 

109 

175 

196 

217 

340 

8. 

1 

A009-RRO 

18 

29 

113 

176 

197 

218 

358 

9. 

1 

A013-RRO 

18 

33 

117 

177 

198 

219 

376 

10. 

1 

A014-RRO 

18 

37 

121 

178 

199 

220 

394 

11. 

1 

D005-RRO 

18 

41 

125 

179 

200 

221 

412 

12. 

1 

D006-RRO 

18 

45 

129 

180 

201 

222 

430 

13. 

2 

A020-RR0 

36 

49 

133 

181 

202 

223 

448 

14. 

2 

A017-RRO 

36 

53 

137 

182 

203 

224 

484 

15. 

32 

AOOl-RRO 

576 

57 

141 

00 

204 

225 

520 

16. 

32 

A002-RRO 

576 

61 

145 

184 

205 

226 

1096 

/.  ■ 


i ■! 


20. 

21. 


to 

*nJ 

I 

» 

N3 


TABLE  2.7-7 

LAYOUT  OF  NAMED  COMMON  DCDATA  FOR  QA191H 


MEAS  ARRAY  INDICES 


32 

1 


A006-RRO 

A023-RRO 


576 

18 


77 

81 


161 

165 


188 

189 


209 

210 


230 

231 


3400 

3976 


(FOR  ADDITION.'^  L INFORMATION  REFER  TO  EARTH  RESOURCES  DATA 
DE^^^HTATIOT.  PROGRAMS  (DECOi'll.  DCRIPT.  DCCM2N.  DCOM2T’> 
PROGRAM  DOCUMENT.  ERS-30n-n?^  


/ 

V 


Int  e ger 
Word  Kumber 
Xn  CouQiQon 


j 

y ' ' \ 

''  ' 

N f r 

■ i 

i 

! 

Lavout  of  Named  Common  DCGNTL  i 

. ^ j 

for  QAI91H  I 


Units 


Descrip tioa 


THE  NAMED  CCMIOW  DCCHTL  PROVIDES  THE  INTERFACE  DATA  FOR  TAPE  RODTIm: 
DCHDRV  AND  IS  DESCRIBED  IN  SECTION  2. 2. 4. 2 DOCiaiENT  HIMBER 


Table  2.7-9 


Layout  of  Named  Common 


Integer 

Word  Number  Program 

In  Gor,.iaon  Symbol  Dimension  Type  Units 


Description 


ERROR  IS  UTILIZED  IN  INTERFACING  WITH  THE  ERROR  PROCESSOR.  ERRPRG, 


AND  IS  DEFINED  IN  SECTION  2.5.3-B  OF  DOCUMENT  NUMBER  ERS-300-07 


"EARTH  RESOURCES  AFPLICATIOH  UTILITY  ROUTINES”.  


In t e ger 
Word  Nuaib 
In  Common 


A191H 


Dimension  Type  Unit; 


Description 


idarry 


»Rl  IS  miLiZKT.  m ,.„ih  

^EFIBED  n,  SECIM  2.5.3  B MIMBFR  ' 

EMTH  RESOURCKS  APRT.ICATIOM  DTHjITYR^INES 


Int  e ger 
Word  Number 
In  Coi;.xon 


Table  2.7-12 


_ Layout  of  Named  Common  HISDAT  _ ^ 

QA191H  . 

Units  Description 


COMPLETION  FIAG  FOR  WRITING  W/L  RMP  HISTORICAL  FILE 


COMPLETION  FLAG  FOR  WRITING  RESPONSIVITY  HISTORICAL  FILE  j 
rnMTT.F.TTON  FLAG  FOB  WRITING  BIAS  VOLTAGE  HISTORICAL  FILE 


COMPLETION  FIAG  FOR  WRITING  FJ/L  CAL  HISTORICAL  FILE 


TTING  CAT.  PERIOD  HEADER 


COMPLETION  FIAG  FOR  WRITING  CAL  PERIOD  HEADER  


INTERM  . COUNTER  FOR  WRITING  RESPONSIVITY  DATA 


COMPLETION  FLAG  FOR  WRITING  BIAS  VOLTAGE  PERIOD  UEADM 


r 

/ 


Table  2.7-13 


Layout  of  Named  Common  imput 
for  QA191H 


Int  e ger 

Word  Number  Program 

In  CciiLmon  5y.iiboi  Dimension  Type  Units 


1-102 

103-158 


IIN 

102 

SPI 

RIN 

28 

SPI 

-LmCD 

. 1 

SPI 

■XINf2) 

. 1 

SPT 

IIN (3) 

1 

SPI 

IIN(4I  i 

1 

SPI 

IIN(5) 

' 1 

SPI 

IIN (6) 

1 

1 

SPI 

mo). 

1 

SPI 

IINfS') 

1 

SPI 

IIN  (9) 

1 

SPI 

uNaoi 

1 

SPT 

IIN(ll) 

1 

SPI 

Description 

array  used  for  storage  of  integer  control  card  parameters 

*"  ' ■ I ■!  I ■■■■  ■ ■!_  II  I I II  if 

array  used  for  storage  of  floating  point  control  card  parameters 

SENSOR  CODE  (=15V 

recording  form  (=27)  ■ 

MISSION  NUMBER  (NEGATIVE  FOR  DEBUG) 

flight  HUMBER 

SITE  NUMBER  

LINE  HIMBER  

RUN  NDMBER  

BASE  YEAR  OF  DATA  RECORDING  DATE  CLAST  2 DIGITS)  

BASE  MONTH  OF  DATA  RECORDING  DATE 

BASE  DAY  OF  DATA  RECORDING  DATE 

0- TAB  OUT  NEW  HISTORICAL  FILE 

1- TAB  OUT  OLD  AND  HEW  HISTORTCAT.  FTT.R 

2- TAB  OLD  HISTORICAL  FILE.  ONLY  (NO  PROCESSING  OF  FIELD  OR 


IZ 

1 

SPI 

13 

lINflSl 

1 

SPI 

HOURS 

14 

IINfl4’) 

1 

SPI 

MINUTES 

15 

iiNa5i 

1 

SPI 

SECONDS 

Q-FILE  DELETION  IS  NOT  REQUIRED 

1-FILE  DELETION  IS  REODTRED  . 

TIME  OF  FILE  TO  BE  DELETED  (HOURS  SECANT) 
TIME  OF  FILE  TO  BE  DELETED  (MINUTES  SEGMENT) 
TIME  OF  FILE  TO  BE  DELETED  (SECONDS  SEGMENT! 


V 


reproducibility  op  the 
ORIGINAL  PAGE  IS  POOR 


Table  2.7-13  Layout  Of  Named  Common 


INPUT 


Integer 

Word  Number  Program 
In  Cor.mon.  Symbol 


Dimension  Type  Units 


QA191H 


Description 


IIN(16) 

IINOTI 


TIN  f 19') 

m:  .!0) 


IIN(21) 


pm 

SPI  COUNTS 


NUMBER  OF  OVERALL  TIME  PERIODS  TO  PROCESS 


TOTAL  NUMBER  OF  PERIODS  TO  PROCESS 

NUMBER  OF  CONSECUTIVE  CAL  PERIOD  SCANS  TO  PROCESS  FOR  WAVELl 

RAMP  CALCULATIONS  

THE  PLUS  OR  MINUS  TOLERANCE  LIMIT  FOR  PCM  COUNT  DEVIATION 
DURING  LINEARITY  OF  SCAN  CHECK 


MINraUM  PCM  COUNT  VALUE  OF  PARAMETERS  Al,  A2,  A3,  A5  AND  A6 


MINIMUM  pm  COUNT  VALUE  OF  A4  FOR  VALID  END  OF  SCAN 


65-66 


71-72 


73-74 


77-78 


79-80 


83-84 


93-94 


Table  2.7-13  Layout  of  Samed  Cominon 
for  QA191H 


INPUT 


Program 

Eyaiboi  Dimension  Type  Units 


Description 


MAXIMUM  AND  MINIMIM  LIMITS  FOR  POWER  SUPPLY  DIAG.  (A016 


IlihUl  l>i|  MB'! 


IftflllJilPlH 

TOMjgnil 

IwfiiiTHti 

KiumiSf 

wi]g 


_AND  MINIMUM  LIMITS  FOR  SPECTRCMETER  PALLET  TEMP  (AOOS 


MAXIMUM  AND  MINIMUM  LIMITS  FOR  DICHROIC  TEMP.  fAOlS'l 


MAXIMUM  AND  MINIMUM  LIMITS  FOR  INT.  SPHERE  TEIP 


MAXIMUM  AND  MINIMUM  LIMITS  FOR  MIRROR  TEMP. 


INIMUM  LIMITS  FOR  HEATED  CAL  TEMP 


MAXIMUM  AMD  MINIMUM  LIMITS  FOR  AMBIENT  CAL  TEMP.  (AO  14) 


iiWRi 


TS  FOR  SWL  CAL  LAMP  (A023' 


^HEEL  PO 


IMUM  AND  MINIMUM  LIMITS  FOR  RAD  CAL  WHEEL  POS.  DURING  HEATED  CA 


} 

INIMJJM„LIMITS  FOR  RAD  CAL  WHEEL  POS.  DURING  SWL  CAL  • 


97-98 


99-10 


101-102 


IIN(99)- 


ililWilllH 


IRmEKM 


G WHEN  BOTH  SWL  AND  LWL 


CHANNELS  ARE  ACTIVE 


MAXIMUM  AND  MINIMUM  LIMITS  FOR  FOV  FLAG  EHIEN  THE  SWL  CHANNELS  IS 
ACTIVE 


ACTIVE. 


JSC 


Table  2.7-13 


Layo 


/ 


for 


Integer 
Word  Number 
In  Cacmon, 

Program 
0 / u»bo  1 

Dimension 

Type 

Units 

103-104 

RINd) 

1 

SPF 

lO'^-IOfi 

■ RTNC?,) 

1 

RPR 

107-TO« 

kINr31 

1 

SPF 

109-116 

RIN(4) - 
RTWf7i 

4 

SPF 

117-118 

RiN(8i  : 

1 

SPF  i 

119-120 

RlNfgi 

' 1 

SPF 

121-12? 

RINaol 

1 

SPF 

I23r.1..3n 

RINdl)- 

_RTNh41 

4 

SPF 

131-132 

RIN(15') 

1 

SPF 

133- n4 

_RIK.Q61 

1 

SPF 

135-136 

RIN(17) 

1 

SPF 

i 

137-144 

RINflS)- 

_R.TN(2T) 

_ .3 

SPF 

145-146 

! RINf22^ 

1 

SPF 

147-148 

RIN(23^ 

1 

SPF 

149-150 

RIN(24) 

1 

SPF 

I 151-158 

RIN(25i- 

-RM281_ 

4 

SPF 

1 


JSC-10140 


Table 


2.7-14 


lute  ger 
Word  Number 

Program 

In  Common 

S>’  abo  1 

Dimension 

Type 

LB  IAS 


LHEAT 


LSWL 


LWLW 


V— V 

f / 

V--7  , 

Table  2.7-15  Layout  o£  Named  Common  LASFBM  { 

! 

£or  QA191H 

1 Integer 

1 Word  Number 
1 In  CoT.',mon 

Program 
Sy mbo 1 

Dimension 

Type 

Units 

Description 

i 

LSTTME 

1 

DPR 

SECONDS 

LAST  PRAl-JE  TIME  EOR  QA  SUMMARY  LISTING 

. 

f 

L 


JSC-10140 


Table 


2.7-16 


Layout  of  Named  Co-mmon 


TRNDX 


T I ~ ■ r • - JL  u J 

Integer  J 

Word  Ku mb er  Program 

In  Coi^mon  Ly^^iboi  Dimension  Type  Units 


5A191H 


Description 


^RNDXl 


19-36 

1 PRNDX2 

2,9 

SPI 

! ... 

1 

37-54 

PRNDX3 

1 

' 2.9 

SPI 

.NUMERICAL  PRODUCTION  INDEXES  FOR  PROCESSING  OF  DATA  RECORDED  AT 


DATES  START  f1 


_OR  STOP  (2.  •)  INDEX.  THE  SECOND  SUBSCRIPT  INDICATES  THE 

PROCESSING  PERIOD.  AS  FOLLOWS; 

_ ( a)  = CAL  PERIOD  DATA 

( ,2)  = WAVELENGTH  CAL  PERIOD  (FIELD  DATA)  ' 

( ,3)  = BIAS  VOLTAGE  CAT.  PERIOD  

( .41  = HEATED  CAL  FIELD  T1ATA 

■_■(  .51  ^ SWL  CAL  FIELD  DATA 

-L_£L.^^BIENT  cal  FIELD  DATA 

= HEATED  CAL  RESPONSIVITY  DATA  

( .8)  = SWL  CAL  RESPONSIVITY  DATA 

9)  - WAVELENGTH  CAL  CALCULATION  DATA  

NUMERICAL  PRODUCTION  INDEXES  FOR  PROCESSING  OF  DATA  RECORDED  AT 

..TWO  SAMPLES  PER_FRAME.  (SAME  SUBSCRIPT  SCHEME  AS  PRNDXl)  . 

NUMERICAL  PRODUCTION  INDEXES  FOR  PROCESSING  OF  DATA  RECORDED  AT 

-32_SAMPLES  PER  FRAMRr. iSAME  SUBSCRIPT  as  PRMnvri 


JSC-10140 


r“'T  fj  ^ 

Table  2.7-21  Layout'’^  Named  Comnon  RESDAT 

fnr  0A191H 

Integer 
Word  Number 
In  CoTi.uion 

Program 
Z j sbo  1 

■■  ■ ■■  ' V 

D im^nslon 

f 

i 

Type 

Units 

Description 

1-^ 

JCMPLT 

2 

SPI 

i 

1 

1 

a 

*)”4 

KOMPIT 

2 

SPI 

NIMERICAL  INDEX  AND  COMPLETION  FUG  FOR  HEATED  CAL  DATA 

s-689 

MAA 

68S 

SPI 

STORAGE  ARRAY  FOR  TRANSFER  OF  CHANNF’  UTA  TO  DISK 

690 

NFSCN 

1 

SPI 

FIRST  SCAN  FUG  - - 

691 

NX 

' 1 

SPI 

MF.AS  ARRAY  SAMPLE  COUNTER 

692 

NSAMPL 

1 

SPI 

1 

MEAS  ARRAY  FIRST  SAMPLE  POINTER 

693 

NIX 

1 

SPI 

MEAS  ARRAY  INTERIM  SAMPLE  POINTER 

694  -695 

AVJ2  1 

1 

SPR 

VOLTS 

AVERAGE  CH.  A2  VALUE  ACCIMUUTOR 

! 

AQA  *AQ7  ' 

! 

A V ' 

1 

SPR 

VOLTS 

698 -699 

AVJ5 

1 

SPR 

VOLTS 

AVERAGE  CH.  A5  VALUE  ACCIMUUTOR 

700  -701 

AVJ6 

1 

SPR 

VOLTS 

AVERAGE  CH.  A6  VALUE  ACClMUUT(ffi ! 

702  -703 

SVJ2 

1 

SPR 

VOLTS 

ACCIMULATOR  FOR  CH.  A2  VALUES  SQUARED  

704  -70S 

SVJ3 

1 

1 

SPR 

VOLTS 

706  -707 

SVJ5 

1 

SPR 

VOLTS 

ACCIMUUTOR  FOR  CH.  A5  VALUES  SQUARED 

708  -709 

SVJ6 

1 

SPR 

VOLTS 

ACClMUUTCm  FOR  CH.  A6  VALUES  SQUARED 

710 

JSCN6 

1 

SPI 

711 

NSSCAN 

1 

SPI 

SCAN  COUNTER  FOR  SWL  CAL  PROCESSING 

• 

I 


JSC-10140 


ut  of  Named  Common  SAVE 

QA191H 

Description 

Q-SEARCHING  FOR  START  OF  SCAN  LINE 

1 -SEARCHING  FOR  END  OF  SCAN  LINE  

NWBER  OF  CONSECUTIVE  VALID  SCAN  LINES  THAT  HAVE  BEEN  PROCESSED 

0 - NORMAL  PROCESSING 

1- BEGINNING  OF  SCAN  LINE  OCCURRED  ON  THE  LAST  SAMPLE  OF  THE 

PREVIOUS  MEAS  ARRAY 

0 - PREVIOUS  SCAN  WAS  NOT  VALID 

1 - PREVIOUS  SCAN  WAS  VALID 

THE  LAST  POSITION  IN  THE  MEAS  ARRAY  THAT  CONTAINED  DATA  FOR  THE 

PREVIOUS  SCAN 

THE  LAST  POSITION  FILLED  IN  THE  IA4  ARRAY 

END  TIME  FOR  SCAN  LINE  

START  TIME  FOR  CURRENT  MEAS  ARRAY  BEING  PROCESSED 

START  TIME  FC«  SCAN  LINE 

OVERALL  TOTAL  TIME  OF  THE  SCAN  LINES  PROCESSED 

OVERALL  TOTAL  OF  THE  ROOT  MEAN  SQUARES  OF  THE  SCAN  LINES  PROCESSED 

0- NO  A6  SYNC  PULSES  PROCESSED j 

1- 1  A6  SUNC  PULSE  HAS  BEEN  PROCESSED * 


Table  2.7  22  Layout  of  Named  Common  SAVE 

for  0A191H  


Int  e ger 
Wo  rd  Iv'  u mb  e r 
In  Cu.i.iaoii 

Progrutt 
M j 4nb  o X 

Dimension 

Type 

Units 

Description 

28  -29 

SMXSUM 

1 

SPR 

-ns( 

COUNTS 

OVERALL  TOTAL  OF  THE  MAXIMUM  A4  VALUES  F(»  ALL  THE  SCAN  LINES 

Integer 
ford  Nurab 
In  o ^ ■■>iuO 


I Number 

o ^ i.'.iuon 

Program 

S y ibo 1 

Dimension 

Type 

Uni  ts 

1-2 

BJD 

1 

SPR 

SECONDS 

Description 

THE  BASE  JULIAN  DATE  ASSOCIATED  WITH  THE  DATE  OF  DATA  RECORDIHG. 

THE  RASE  DATE  IS  LIMITED  TO  THE  0 HOUR  OF  THE  DAY  BECAUSE  OF  TME 

T.IMITED  Arr.tlRACY  OF  SINGLE  PRECISION  FLOATING  POINT  REP^SEWAT^^ 
THE  nn.TAW  nATK  TS  MODIFIED  FOR  STORAGE.  THE  TWO  HIGH  ORDER  BITS, J 


WHICH  ARE  AUTAYS  24  ARE  IMPLIED  BITT  HOT  STORED  IN  BJP^ 

START  AHn  RTOP  TIMES  FOR  THE  PERIODS  TO  BE  PROCESSED,  ASSIGWED 


T THRD  (2.20'>  = OVERALL  TIME  PERIODS 


= CAL  PERIODS 


1.26'^  THRU  (2.30)  ~ W/L  CAL  PERIODS  (FIELD  DATA 
= BIAS  VOT.TACE  CAL  PERIODS 


Table 


i. 


; Integer 

Word  Number 

In  L> UMaZion 

Program  | 
Syjibol 

Diiactislon 

Type 

1 -2 

MCMPLT 

2 

SPI 

I 

3 

IMTLO  1 

-i 

1 ! 

SPl 

4 

U4THI 

1 

SPI 

1 

1 

1 

) 

! 

1 

i 

! 

1 

i 

1 

i 

1 

1 

1 

Refar  to  Figura  2.8-1  £or  a croaa  rafaranea  batwaan  tha  aubroutlna  naawa 
and  the  load  modules  which  Tafaranea  than.  Following  tha  figure  is  an 
explanation  of  tha  function  and  liidcagas  of  each  of  the  subroutines 
contained  in  tha  QA191H  Program. 


Q 


2.8-1 
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4* 

»H 
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S 

Q 
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flC 

or 

q! 
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Figure  2.8*1 ' Cross  Reference  of  Subroutine  Names  with  Load 
Modules  Requiring  the  Sub  routine 
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2.8.1 


CONDRV 


A.  Desc_r_lpt  Ion . Subroutine  CONDRV  reads  the  control  Input 
data  from  lead  cards  and  stores  it  in  specified  common 
arrays.  Lead  cards  are  read  into  common  arrays  by  support 
software  subroutine  CONIKP. 

B.  Linl.ages 
1 . Input 

• Lead  cards 
2 . Out pu’t 

• Control  input  data  in  specified  common  arrays 


JSC-10140 


2.8.2  DECRIP 


A.  Description . Subroutine  DECRIP  calls  support  software 
subroutine  DCRIPX  to  read  the  header  block  from  the 
preprocessor  9-track  tape  and  store  data  in  a common 
array . 


B.  Linkages 

1 . Input 

• Array  of  measurement  ID's  for  FSS 

• Specified  common  arrays 

2 . Output 


• Specified  common  arrays 


• Error  code 
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28.3  DEC0M2 


A.  Description.  Subroutine  DEC0M2  calls  support  software 
subroutine  D00M2N  to  read  data  from  the  preprocessor 
9-track  tape  and  store  data  in  specified  common  arrays 


B,  Linkages 


1,  Input 


• Start  and  stop  times  for  extracting  datij  from 
input  tape 


9 Array  of  measurement  ID's  for  FSS 


• Maximum  number  of  frames  of  data  to  retrieve 


• Specified  common  arrays 


2.  Output 


• Actual  number  of  frames  of  data  retrieved 


• Specified  data  array 


• Error  code 
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FLDPRO  I I 

A.  Description.  Subroutine  FLDPRO  tests  specific  parameters  in  the 
data  input  by  DC0M2N,  The  data  is  tested  against  high  and  low 
tolerance  limits  input  by  CONINP.  If  anomalies  are  detected 
by  the  tests,  the  data  parameter  Is  passed  to  ANPRO  for  output. 

The  process  is  as  follows; 

1.  The  paraneter  tolerance  limits  input  by  CONINP  are  initiated. 

For  thosa  parameters  requiring  more  than  one  set  of  limits, 

the  correct  set  is  determined  oy  the  type  of  data  being  tested. 
Indexing  flags  for  the  various  types  of  data  are  set  by  TMLOOP. 

2 . Each  data  sample  of  the  housekeeping  parameters  is  checked  for 
values  within  their  respective  limits.  If  a data  sample 
exceeds  limits,  the  parameter  Identity  and  value  are  passed 

to  ANPRO  for  processing. 

3.  During  calibration  data  processing,  the  sync  pulses  are 
checked  at  the  start  of  each  scan.  A valid  sync  pulse  occurs 
when  the  values  of  all  channels,  except  channel  A4,  exceed 
1020  counts  at  a common  data  point  during  one  to  three 
consecutive  samples.  The  data  on  any  bad  or  missing  sync 
pulse  is  passed  to. ANPRO. 

4.  The  program  start/stop  times  that  are  entered  for  the  variov  | 
processing  periods  are  taken  directly  from  the  14-track  > 
flight  log,  and  the  log  times  frequently  do  not  exactly 

match  the  actual  tape  times.  Consequently,  there  may  be  a 
few  very  short  periods  of  tape  data  that  are  incorrectly 
identified  to  the  program.  When  this  occurs,  the  program  may 
indicate  anomalous  data  at  the  very  beginning  or  ending  of 
these  periods.  This  fact  should  be  taken  in  consideration 
when  checking  the  real-time  anomalies  list. 


B.  Linkages 

1 . Input 

• Control  input  in  specified  comnon  arrays. 

• Data  in  labeled  comnon  array  DCDATA. 

2 . Output 

• Anomalous  data  points  passed  to  ANPRO. 


JSC-10140 


ANPRO 


A.  Description.  Subroutine  ANPRO  converts  anomalous  parameter  data  to 
engineering  units  and  outputs  the  data  to  the  line  printer.  When 
anomaly  data  for  a specific  parameter  Is  Initially  passed  to  ANPRO, 
an  Internal  flag  Is  set  for  that  parameter.  ANPRO  processing  keys 
on  these  flags  when  subsequent  anomalies  of  the  same  parameter  are 
received.  If  a parameter  flag  has  been  set  by  previous  data,  sub- 
sequent anomalies  of  that  parameter  are  counted  for  a number  of  specified 
scans  (nominally  10  scans) , or  when  time  continuity  is  broken  by  more 
than  30  seconds.  When  the  specified  number  of  scans  have  been  processed, 
the  parameter  label,  the  total  of  all  anomalies  detected  on  that  parameter, 
and  the  number  of  scans  are  output  to  the  line  printer. 


If  the  processing  flag  has  not  been  set,  the  anomaly  data  is  converted 
to  engineering  values  of  voltage  or  temperature,  depending  on  the 
parameter  type,  and  output  to  the  line  printer. 

One  constant  is  used  to  convert  all  applicable  PCM  values  to  volts. 


VAN  = NPCM  * .005  volts 
Where: 

NPCM  = Parameter  value  in  PCM  counts, 

VAN  = Parameter  value  in  volts. 

All  temperature  parameter  values  are  converted  using  one  generalized 
6th  order  polynomial  equation  described  below.  Temperature  conversion 
coefficients  are  read  from  the  conmon  table  CNVTMP.  Each  temperature 
parameter  has  a different  set  of  conversion  coefficients. 

TAN  = Aq  + A^C  + A2C^  . . . +AijC^  N<6 
Where: 


pi 


TAN  = Parameter  value  In  degrees. 

Aq,  Aj^,  ...  Ajj  - Conversion  coefficients. 

C = Parameter  value  in  PCM  counts* 

B.  Linkages 

1.  Input 

• Anomalous  parameter  data  transferred  by  subroutine  FLDPRO. 

2,  Output 

• Converted  values,  anomaly  totals,  data  frame  times,  and 
parameter  labels  output  to  line  printer  in  formatted  form. 
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2,8.6  BIAPRO 


2.8.7 


A,  Description.  Subroutine  BIAPRO  generates  histograms  of  the  parameter 
data  values  during  bias  voltage  processing.  Arrays  are  initiated 
for  channel  Al,  A2,  A3,  A5  and  A6  with  assigned  values  specified  by 
table  IBVHR.  The  values  for  table  IBVHR  are  input  via  control  cards 
through  subroutine  CONDRV.  Each  data  sample  of  the  five  channels , 
except  the  sync  pulses  and  the  four  adjoining  samples  on  each  side,  is 
examined.  The  histogram  counters  are  incremented  when  a data  sample 
falls  within  its  range.  At  the  end  of  bias  voltage  processing,  the 
histogram  arrays  are  stored  on  disk  until  the  new  Historical  File  tape 
is  written, 

B,  Linkages 

1,  Input 

• Specified  arrays  of  data  stored  in  common. 

2.  Output 


• Histogram  data  written  on  intermediate  disk  file. 


WVLPRO 


A.  Description.  Subroutine  WVLPRO  processes  the  Wavelength  Calibration 

period  data  for  the  Historical  File.  Data  is  input  by  specific  common 
blocks.  For  the  first  twenty  valid  scans  of  data,  the  channel  A4 
values  are  examined  for  a predetermined  low  and  high  PCM  count  range. 
Arrays  are  initiated,  and  a matrix  is  built  of  all  channel  A2,  A3,  A4 
and  A5  PCM  values  within  the  specified  A4  range.  Initially,  all  the 
values  in  the  channel  A3  array  are  checked  for  saturation,  on  each 
scan  of  data.  On  the  first  scan,  any  value  that  exceeds  949  PCM 
counts  is  considered  saturated,  and  on  all  subsequent  scans,  the  data 
is  considered  saturated  if  any  value  exceeds  999  PCM  counts.  If  no 
saturated  data  is  found  in  the  channel  A3  arrays  during  the  first 
twenty  consecutive  valid  scans,  the  wavelength  cal  data  is  derived  from 
the  computed  A3  values.  If  saturated  data  is  found  in  any  of  the 
channel  A3  arrays  before  twenty  valid  scans  are  processed,  all  the 
channel  A3  data  is  rejected,  the  intermediate  accumulators  are  cleared, 
and  the  processor  begins  looking  at  the  channel  A5  data.  Again,  for 
each  scan  of  data,  all  the  channel  A5  array  values  are  checked  for 
saturation,  using  the  949  count  limit  for  the  first  scan  and  the  999 
count  limit  for  all  subsequent  scans.  Processing  continues  on  the 
channel  A5  data,  until  twenty  new  consecutive  valid  scans  have  been 
processed.  The  processor  then  uses  the  A5  values  computed  from  the 
twenty  new  scans  to  derive  the  wavelength  cal  data.  However,  if  saturated 
data  is  found  in  any  A5  array  before  enough  scans  have  been  processed, 
the  processor  rejects  all  channel  A5  data,  clears  the  intermediate  | 

accumulators,  and  beings  Initial  processing  again,  using  the  channel  , 
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2.8.7  WVLPRO 


(COOT.) 


A2  data.  The  channel  A2  arrays  are  tested  for  saturated 
were  the  channel  A3  and  channel  A5  arrays,  using  the  same  949  and 
999  count  criteria.  Processing  continues  until  twenty  more  valla 
scans  of  channel  A2  data  are  processed.  As  before,  if  the  A2  arrays 
contain  no  saturated  data  for  the  twenty  scans,  the  computed  A2  values 
are  used  to  derive  wavelength  cal  data.  But,  if  saturated  data  Is 
found  in  any  channel  A2  array,  or  if  the  wavelength  cal  period  terainates 
before  twenty  valid  scans  of  data  are  processed  from  any  of  the  three 
channels,  the  wavelength  cal  processing  is  aborted.  Applicable  messages 
are  input  to  the  Historical  File  to  tell  the  user  why  the  wavelength 
cal  processing  was  aborted  or  to  indicate  which  channel  data  was  used 
for  the  derivation. 

The  maximum  PCM  value  in  the  chosen  array,  and  the  first  and  last  time 
this  value  occurs  in  the  array,  is  determined.  A low  and  high  point 
below  and  above  the  first  and  last  maximum  count  is  established  by 
testing  for  the  first  and  last  PCM  value  equal  or  greater  than  one-third 
the  maximum  value.  If  the  low  and  high  points  fall  on  the  first  or  last 
sample  in  the  array,  or  if  the  low  or  high  value  is  not  found  in  the  array, 
that  scan  is  rejected.  Also,  the  scan  is  rejected  if  the  number  of  samples 
between  the  low  and  high  points  is  less  than  seven  or  greater  than  twenty. 
A parabolic  fit  of  the  chosen  array  values  between  the  low  point  and 
the  high  point  is  computed  by  performing  a least-squares  regression 
on  the  associated  A4  values.  The  vertex  of  the  parabola  is  determined, 
and  the  representative  A4  value  of  the  vertex  sample  number  is  found. 

This  A4  value  is  divided  by  983  counts  and  multiplied  by  the  peak 
value  of  A4  for  the  entire  scan  to  compensate  for  A4  drift. 

The  best-fitting  parabola  is  given  by  the  equation  below: 

2 

y » aQ  + a^x  + a2X 

and  the  values  sq,  a^,  and  computed  from  the  following  equations: 

2y  ” agn  + a^S*  + 


rx^y  =*  a^ZrfX^  + a 


where; 


n = Number  of  samples  (6  <n<10 ) . 
y “ Count  values  for  the  selected  channel. 
X * Count  values  of  associated  A4  samples. 
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2.8.7  WVLPRO  (CONT.) 


A.  Twenty  values  of  A4  are  found  (one  per  scan)  for  the  chosen 
channel  (A3 , AS  , or  A2).  The  average  and  standard  deviation  for 
the  twenty  values  are  computed  and  this  data  is  stored  as  part  of  the 
Historical  File, 

B.  Linkages 

1.  Input 

• Specified  common  arrays, 

2,  Output 

• Historical  File  data. 

2.8.8  RAMPRO 


A.  Description.  Subroutine  RAMPRO  processes  the  wavelength  ramp  data 
during  Calibration  period  processing.  Wavelength  ramp  data  is 
processed  for  some  variable  number  of  consecutive  valid  scans  (£100  sea 
determined  by  the  control  card  input  value  ICSCN.  Data  is  input 
through  common  arrays . 

For  each  scan,  the  minimum  and  peak  PCM  count  value  of  channel  A4  is 
determined.  These  A4  values  are  accumulated,  and  the  average  and 
standard  deviation  for  the  minimum  and  peak  values  is  computed.  The 
PCM  values  are  converted  to  volts  with  the  algorithm: 

Volts  = PCM  count  *.005  volts /count 
The  algorithm  for  computing  average  voltage  (Vx)  is: 


Vx  = Vx,  1/n 

i=l 


The  algorithm  for  computing  standard  deviation  (S)  is; 


Where: 

n = Number  of  consecutive  valid  scans 
Vi  = Peak  or  minimum  value  in  PCM  counts 
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I2.8.8  RAMPRO 
^ 


A.  Description  (CONT.) 


RAMPRO  also  checks  the  linearity  of  each  scan.  This  is  done  by 
first  computing  a straight  line  value  for  the  channel  A4  counts 
using  the  algorithm; 

y = bg  + b]^X 

where ; 


y - computed  PCM  value  for  straight  line 


X = sample  count  (starting  with  first  sample  where 
A4  PCM  value  >30  counts) 

The  actual  PCM  value  of  each  A4  sample  is  compared  to  the  computed 
straight  line  value,  and  the  BMS  deviation  of  the  total  scan 
is  computed  by  algorithm: 


RMS 


% 


Where; 


yg  “ Expected  PCM  value  as  computed  for  straight  line. 
= Actual  PCM  value. 


n = Number  of  samples . 
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2.8.8  RAMPRO 


A.  Description  (CONT.) 


During  the  sample  comparison*  if  an  actual  PCM  value  exceeds  the 
computed  straight  line  value  by  plus  or  minus  the  tolerance  limit 
dictated  by  the  variable  ILTOL,  the  scan  is  rejected;  and  the  frame 
time,  A4  value  in  volts,  and  identifying  label  are  output  to  the 
line  printer. 

The  average  length  of  all  the  scans,  in  seconds,  is  computed  by 
accumulating  the  total  overall  time  and  dividing  by  the  number  of 
valid  scans. 

B.  Linkages 

1.  Input 

o Data  in  common  arrays 
o Control  parameters  from  lead  cards 

2,  Outputs 

o Data  stored  as  part  of  Historical  File 


I 
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2.8.9  RESPRO 


Description.  Subroutine  RESPRO  computes  the  responsivity, 
noise,  and  NESR  data  during  the  Calibration  period  data  processing. 
The  computation  Is  done  for  one  wavelength  In  each  of  channels 
A2,  A3,  A5  and  A6,  using  the  data  fram  twenty  valid  scans. 

Channels  A2,  A3,  and  A5  are  done  during  the  SWL  cal  period,  and 
channel  A6  Is  done  during  the  heated  nal  period.  The  data  Is 
Input  through  common  arrays. 

1,  The  Input  wavelength  (WVLNGH)  far  each  channel  is  first 

converted  to  a PCM  count  value  representing  the  associated 
channel  A4  ramp  position.  Conversion  is  done  using  a 
general  third  power  polynomial with  the  conversion  coeffi- 
cients provided  by  input  control  cards  (ACOEFZ  thru  AC0EF3) . 

WVPCM  * Aq  + Aj^C  + A2C^  + A3C^ 

Where ! 


WVPCM  = Wavelength  in  PCM  counts. 

Aq,  A3  = Conversion  coefficients, 

C = Wavelengths  in  microns. 

Compensate  for  channel  A4  drift  by:  CWVPCM  = WVPCM  * • 

983 

CWVPCM  = Corrected  value  of  wavelength  in  counts. 

PKA4  = Peak  value  of  A4  for  the  given  scan. 

Obtain  the  detector  output  volts  (VJ)  In  each  of  the  twenty 
scans  by  determining  the  sample  number  of  actual  A4  values, 
where  A4(K)  Is  the  first  value  that  equals  or  exceeds  CWVPCM, 
K+2 

Vj^  “ Detector  PCM  value. 


i=K-2 


K - First  sample  number  where  A4  > CWVPCM 


After  the  twenty  values  of  VJ  are  found,  their  count  values 
are  converted  to  volts  by: 

WJ  = VJ  *.005  volts/count. 


Obtain  the  average  (VVA)  and  standard  deviation  (WN)  of 
WJ. 
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2.8.9  RESPRQ 


i, 

f 

V > 


A,  6.  Obtain  the  signal  volts  (SV)  by  subtracting  the  channel 
bias  voltage,  for  that  particular  channel,  from  the 
average  (WA) . The  channel  bias  voltage  for  channels  A2, 
A3,  A5,  and  A6  are  input  via  control  cards  (CBIASV)  . 

7.  For  channels  A2,  A3,  and  A5,  the  Responsivity  is  computed 
by: 

Responsivity  = ^ 


where: 


L = Cal  source  brightness  for  the  given  wavelength,  input 
by  control  cards  (PDORL) , 


8.  For  channel  A6  responsivity  is  computed  by: 

Obtaining  the  blackbody  radiance  (BWLT)  for  the  Reference 
Cal  Source  temperature  (TREF) , Heated  Cal  Source  temperature 
(THEAT) , and  Dichroic  temperature  (TDICH) . 


BWLT  = 


11909 

A^*(e^“l) 


where : 


A = Wavelength  in  microns, 

T = Temperature  in  °C. 

14388 

X = X*(T+273) 

Calculate  the  tadiance  of  the  Reference  Source  and  the 
Heated  Source  by: 

1^  = BWLT  (TREF) 

Ijj  = Pd*BWLT  (THEAT)  + (1-Pd)  *BWLT  (TDICH) 
where: 

Pd  = Dichroic  reflectivity  for  channel  A6  wavelength,  input 
by  control  cards  (PDORL) . 

Calculate  A6  Responsivity  by: 

. . SV 

Responsxvity  = 

^H'^r 
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2.8,9  HESPRO 

Obtain  NESR  for  each  channel  by: 

WN 

NESR  = Responsivlty 

Where; 

WN  = Computed  noise  for  that  channel. 


B.  Linkages 

1.  Input 

• Data  in  comnon  arrays 

• Conversion  coefficients,  wavelengths,  cal  source 
brightness,  and  channel  bias  voltages  in  conmons 

2,  Outputs 

• Data  stored  as  part  of  Historical  File. 
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2.8.10  TMLOOP 


A,  Description.  Subroutine  TMLOOP  is  called  to  set  up  the  ^ 

production  index  arrays  in  the  named  common  PRNDX.  These 
indices  are  used  by  QAEXEC  to  direct  the  various  calculations 

and  parameter  checks  on  the  incoming  tape  data.  TMLOOP  also 
generates  a numerical  pointer  that  indicates  which  period, 
within  a group,  is  being  processed.  Subroutine  TMLOOP  extracts 
the  first  frame  time  from  the  MEAS  array  input  data,  Chen  uses  the 
frame  delta  time  to  calculate  a last  data  frame  time  in  the 
array.  The  times  for  the  various  processing  periods  were  put 
in  the  SSTIME  array  by  the  card  reader  routine  COMINP,  and  these 
times  are  compared  against  the  first  and  last  MEAS  array  frame 
times.  A start-stop  index  is  set  in  the  applicable  PRNDX  array 
for  the  first  and  last  data  sample  of  each  period  that  falls 
within  the  first  and  last  frame  times.  A separate  index  array 
is  used  for  data  recorded  at  one  sample  per  frame  (PRNDXl) , two 
samples  per  frame  (PRNDX2) , and  32  samples  per  frame  (PRNDX3) . 
Numerical  pointers  are  assigned  to  the  separate  Cal  periods. 
Wavelength  Cal,  Bias  Voltage  Cal,  Heated  Cal,  and  SWL  Cal  periods 
as  the  data  for  each  time  slice  is  processed.  These  pointers 
are  used  in  several  routines  to  determine  when  a different 
processing  period  has  begun. 

B . Linkages 

o Specific  time  periods, 

o Data  in  common  arrays. 

2 . Output 

o Pioduction  index  arrays, 
o Numerical  pointers. 
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2.9  LOCATION  OF  SOURCE,  OBJECT,  AND  LOAD  MODULE  FILES 


The  source  files  for  QA191H  are  located  on  cards  in  room  201  of 
the  1100  NASA  1 Building.  The  cards  are  located  in  a file  cabinet 
in  a drawer  entitled  "QA191H  PROGRAM  DECKS".  The  source  files  are 
also  located,  along  with  the  object  files  on  the  "QA191H  DEV"  disk 
in  room  303,  Building  30  at  JSC.  The  load  modules  files  are  located 
on  the  "QA191H  PROD"  production  disk  in  Building  30  at  JSC  under 
UIC  (200,200). 
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1J08  COMPlEtJOOrOO^J 

OATEI-27-JUL-76 

TlMEl-l7t2ati:i 

SRUN  FORTRN 

FORTRAN  VOOttA 

«DK1I  ANPRO,OBJ,UPl<OKl 


ANPR0,FTN/0N/8U/C0|R9 
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JSC-10140 


J' 


FORTRAN  VOORA 


17I2RIR8  27«JUL-'*  RA6£  t 


C 

C 

C 

c 

c 

c 


c 

c 


c 

c 


c 

c 

c 


c 


« 

* 


COAD  MODULkil  ANPRO 


II 


II 


* 

* 


Dimension 

AijCNTR(IS), 

AnSTaT(15), 

ANRECOS), 

* 

PARLABCSR), 

RPAR{18>, 

RFMT05), 

* 

RJNT(2), 

RFLTU), 

RBLK(2), 

* 

TANCTR(IB), 

ITIM(f), 

RMONOZ) 

OOUBLE  PRECISION  PARLAB, 

START, 

STOP, 

* 

tol. 

FRTIME, 

FIRSTR, 

IT 

OLT, 

5STIME 

INTCGER 

ANCNTR, 

ANSTAT, 

ANRCC, 

FMT, 

FRSTR(2), 

FRSTP(2) 

REAL  CNVTMPC60) 
BYTE  BOATI(R) 
COMMON  /ANDAT/ 


COMMON 

COMMON 


DCDATA 

SAVE 


jpar,nsam,lan,mact 
ANCNTR(15),AMR£CU 
IwLFC,  IRAMFGfLZNE 
k / MEA8C1993) 

/ IbGMSr 


, ANSTATUS) 
5),TANCTR(l 
,IP6 


/ IbGNSC 

1 IPfiVOR 

2 TMCURR 

3 SUMTM 

U RMNSUM 

5 RNSM8Q 

COMMON  /TIMES/  BJD»  SSTIME(2*fc5) 
COMMON  / INTNDX  / Lf  L81*S>  LHEi 
COMMON  /OCARGN/  START,  STOP, 

FmT,  IOKRTP, 

IDBLE,  LU, 

MAX,  NAV, 

ISTAT 

IlN(102),RIN(2a) 
IINCRn 


,NMVALD 
,ISAVPT 
, TMFRCR 
,RM8T0T 
,RMXSUM 


AT,  USWL, 

tol, 

FR8TR(2), 

isizc, 

!NIT, 


,XRET, 

SI.IRESFG, 


, iaheao 

, IArNOX 

,TMFR8T 
, IA68ET 
,RXSMSO 


lmuw 

IFLACC. 

FH8TP(2), 

NTH, 

IDDC, 


COMMON  /INPUT/ 
equivalence  (MO 


* * V B 4 

,nN(9)) 

DATA  LRECD  /tOB/ 

DATA  ICOL  /'I  '/ 

DATA  RFMT/ 

»'CIH  3X* , ' ,12,  • , *A2,I»,  i2,A2r , I ,FT,  ' , '<*iT2« , *0, 15' , ' 

I ' ,12, 'T67, '3A8, », 'TR2, I , ' •/ 

DATA  RPAR/ 


*',T28',', 

T30',» 

,T32',i 

1 ,T3Ai 

1 ' ,TUA' , ' , 

TAB'  , 1 

,T50',i 

' ,T52' 

DATA  RINT 

/'2X, 

I', '6) 

'/ 

DATA  RFLT 

/'FB, 

A',  '} 

'/ 

DATA  RBLK 

/'2XJ 

'/ 
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DATA  RHON/ 


1 

•JAN-',  ' 

FEB-*,  'MAR-*, 

•APR-i,  'MAY-1, 

2 

ljUL-',  • 

DATA  PARLA8/ 

AUG-',  'SEP-', 

•OCT-'',  'NOV-I, 

1 

'ZERO  VOL', 

»TS  refer*, 

•ENCE  *, 

2 

•PONER  SU*, 

•PPLV  OIA*, 

•GNOSTICS', 

3 

•PACKAGE  *, 

• TEMPERATi , 

tuRE 

4 

•DATA  PAL', 

•LET  TEMPI, 

'ERATURE  1, 

5 

•SPECTROH' , 

•ETER  PAL', 

•LET  TEMPI, 

6 

•OlCHROIC* , 

' TEMPERA', 

•TURE 

7 

•INTEGRAT', 

•InO  SPHE', 

•RE  TEMP  1, 

8 

•mirror  T', 

•EMPCRATU*, 

• RE  ', 

9 

•HEATED  C^» 

•AL  TEMPE', 

•RATUBE 

* 

•AMBIENT 

»CAL  TEMP', 

•ERATURE  ', 

1 

•RAD  CAL  •, 

'WHEEL  PO'» 

•SITIOn  ', 

2 

•FIELD  OF', 

' VIEW  FL«, 

• AG  *, 

3 

•LHL  OETE^, 

'CTOR  T£M», 

•PERATURC', 

4 

•THERMAL  •, 

•REF  SOUR*, 

•Ce  TEMP  ', 

5 

•SWL  cal 

•LAMP  VOL', 

*TACE 

6 

7 

•SYNC  PUL', 
1 1 

•5E  INVAL', 

f 1 

•ID  • , 

1 * 

8 

•SCAN  REJ'I 

•ECTED  '1 

1 If 

* */ 

DATA  CNVTMP/.l5J243t*3,.lSR0ilC-I, ,648#6'»E*S,,ft63»30E»B, 
•.12170RE-1O, .0£+0,,4S6a0lE4.l,.557554E.l,«*.0E+0,,4S765UE+l, 
*, 5575e7E-l,U*,oe<.0,,  4 376546  + t,,5S75a7E-U«*,06*0,,  31 7003E*0, 
*.«11506E-1,..  lS6785E-4,,tR8<>65E-7,.,l  if920E-lO.,45il'»3E-14, 
*.,48R971E+1 , .6953556-1 ,-,524348t-4, ,93i606E-7, -.853239E- I Oi 
*, 407347E-1 3, -.389909E  + 3, .1604686  + 0, -,li0689£. 5, ,5l6876E-6, 
43649 jE-9,, 1542796. 13,. 436163E+1,,53|435E-1,-, 2379506-4, 
+.S25359E-7,.. 51 16386-10, .2670076-1 3, . 4I2203E+ 1 ,, 4491 686-1 , 
+-.140419E-4, .2446926-7, -.1844966- 10,. 929381 E-t4,.6l 03456+2, 
*.8624906-1,4*. 06+0/ 


IF(LZNE  .OT.  0)  goto  6500 

5999  IPCsIPC+l 

CALL  OATECBDATE) 

NRITE(6,6000)IPG,IIN(10),RMON(MO),IIN(8),BDATE 

c 

6000  FORHAT ( IHI ,T30i ' 8 191h  PREPROCESSOR  TAPE  QUA 

* L I T Y T E 8 T»,/,T122, »PAGE*,I4,//, * START  DATE  I • , 1 3, ' - I , A4 , 1 
*2,T107,'RUN  DATEl  ' , 9A 1 , //, T42, i * ****ANOMALICS  LXS 

* T * * + * *',//,T41, IPARAMETER»,/,T7, «FRAMt  TIRE *, T21 , i RECORD *, T4 
*0,  • TyPE  NUMBER  I , T74,  i PAR  AMETER  • , T 1 07  , • INDICATION*  , / , T5, 

— t,T21,' 

* ' ————————  — — * , T93,  ' —————————————— 

•--■-* , /} 

C 


LZNE«ll 

IFdSlS  ,60.  1] 

GOTO 

7640 

6500 

IF(L2N6  .GT.  60) 

GOTO 

5999 

7000 

IF(MACT  ,0T.  0) 

GOTO 

7100 

!F(JPAR  ,E0,  0) 

GOTO 

7600 

IFdSTAT  ,CT.  0) 

GOTO 

7600 

IFUPAR  ,6T,  15) 

GOTO 

7300 

JSC-10140 
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C 

IFtLAN  ,CT,  n GOTO  7100 

C *******«**«*****»***********************************i*******«******* 

c * IF  FIRST  ANONA.V,  SET  UR  RECORD  LI^IT  FOR  COUNTER  DUMP  * 

C •*******.*********4*******«*******«***«««*«*******il.*****4******»*«« 


7001 

IFCANCNTR(JPAR)  ,NE,  0) 
ANRECCJPARlaFRSTRcnbLRECD 

GOTO 

7010 

7010 

ANCNTR(JPAR)aANCNTR( jPARItl 
TANCTRtJPAR)aTANCTR(JPAR)+l 
ANSTAT(JPAR)ai 

if(ancntrcjpar)  .eq,  n 

GOTO 

7100 

IF(FRSTR(IJ  ,LE,  ANRECcJRAR)) 

GOTO 

7070 

IF{NSAH  ,6T,  4} 

GOTO 

7020 

LIPS 

GOTO 

7040 

7020 

IF(NSAM  ,GT.  12) 

GOTO 

7030 

LlP4 

GOTO 

7040 

70*0 

LIp3 

7040 

IREC0aRR8TR(l)*Ll 

c ******************************************************************* 

C • determine  frame  time  (FRTIME) 

c *****•*«•••**•*******•*•*•******•*•***•*•**********••********•*••*• 

calc  AM0V(mEAS(1)»FIRSTR»4) 

CALL  AMUV(MCAS{SS} »DLT«4) 

IF(LI  •EQ,  5)  FRTIMEmFIRSTR 
U(LI  ,Efl,  4)  FRTIME*F1RSTR+(4*0LT) 

1F(L1  ,C0,  3)  FRTIME«FIRSTR*a2*0l.T) 
call  5T0MM8(FRTIME, ITlMjSEC) 

C **********t*********************«*****«*********«*******»********** 

C * WRITE  anomaly  total  * 

C A***************************************************** *«**•*•**•*•* 

JB«{ JPAR*1) 

JAaje-2 

RFMT(9)aHPAR{JPAR) 

RFMT(1«)bRINT(i) 

RFMT(l5)aRINT(2) 

WRITE(4,RFM7HTIH(1),  IC0L,ITIM{2),K0L,SEC,ANRCCtJPAR),JPAR,  (PAHLA 
lacJ), JaJA,JB),ANCNTR( JPAR) 

WRITE(fc,7400) 

LZNEaCZNE+l 

C 

anCntr(Jpar)io 

ANREC(JPAR]aO 
ANSTAT(JPAR)aO 
7070  DO  7080  Maj,j5 

IFCANSTAT(M)  ,EQ,  0)  GOTO  7080 

M*CT«l 

GOTO  7700 

7080  continue 
MACTaO 

GOTO  7700 

C * *«********••*******•••**«****•*«•***••«*•»***•******««**•*****•*«• 

C * LANaJ  update  ANOMALY  COUNTER  * 

C ***•***•**•**** 

7100  IF(JPAR  ,EQ,0) 


GOTO  7b00 


JSC-10140 


'ORTRAN  VOOUA 


27-JUt-T* 


IftJPAR  ,BT,  15: 

If <*MCNTR(JPA«)  .EOt  0) 

IfCtAN  .EQ,  \) 

ANSTATCJRAR]*! 

If(JPAR  .EO,  155 
LOCPCCJPAR-n*^*)*^ 

XOCPLOC^Ett 
If(JP*R  ,E0,  l«) 

J0Cp214a(MAX*JPAR) 

7130  JOC«ae<t 

7ttt0  LOCbBI 
100145 
J0CP3R76 

; ****•*****************************< 

; * COMPUTE  FRAME  TIME  OF  ANOMALY 


GOTO  7300 
GOTO  7005 
GOTO  7010 

GOTO  71R0 


GOTO  7130 
GOTO  7150 
GOTO  7150 


7150  call  AMOV{MEAsaOC)iFRTlME,A) 

CALL  AM0V(MEAS(IOCl,f IRSTR,«) 

FXR8T«»FIRSTR*(N8AH«1) 

FRTIME«FRTIME*FIR8TR 

IF(N8AM  ,GT.  12)  55° 

IFINIAM  ,GT,  5) 

GOTO  7160 
GOTO  7180 

7170  LL*a 

7180  IRECbFRSTRC1)«LL 
IV«J0C*N8AM-l 
IVAL»MEA8(IV) 

call  8T0MMS{FRTIME,ITIM,SEC) 

BFMT(R)«RFAR( JPAR) 

JD«3«JPAR 

JC«J0*2 

RFMT(1U)«RFLTC1 ) 

«FMT{15)pRFLTC2) 

GOTO(71«0,7190,720S,7210,7215,7220, 7225, 7230, 7235, 7200,7190, 7 1»0, 7 

*255,7260,71905 JPAR 

c **********************^^  routine  * 

Si9o*rvi;;;rAj:!Ssr*  * 

7205  RVAL*CNVTMP(UJ)*(CNVTMP(«45*FVAL)*CCNVTMP(«5)*cFVAL**2) 5+(CNVTMP(i* 
U)*(FVAL*.5n  + (CNvTMP(«75*tFVAL**a))*(CNVTMP{46)*CFVAL**5)) 

GOTO  7800 

^7210  RVAt«CNVTMPn  55  + (CNVTMPa«)*FVAL)  + (CNVTMPC15)*CFVAL**2n*(CNVTMP(  I 
16)*CFVAL**5)  )♦  tCNvTMP(l7)*(FVAL**a5  ) + (:CNVTMP(ie)*(FVAL**5)) 

GOTO  7600 

^7215  BVAi.«CNVTMP(l95  + £CNVTMP(20)*FV*L)  + {CNVTMPC2n*(FVAu**2)  ) + (CNVTHP{2 
12)*CFVA).**3) )♦ tCNVTMP(23)*(rVAL*A«) )+tCNVTMP(2«)*CFVAL**5)5 
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L 
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FORTRAN  V004A 


t7t2«l46 


27-JUL-r* 


GOTO  7400 


!0  «VAU»CNvTHPc<i93*(CNvTMRcS0)*rvALU{CNvTMR(5l)*(fVAL«**2))t{CNVTMPC5 
12) *(FVAL**3j ) ♦(CNVTMP(53) * (FVAL**4) ) « (CNVTNP(Sa) *(FVAL**5) } 

GOTO  7400 

!5  RV4L«CNVTMP(Sn  + (CNVTMP(32)*FV4L)*tCNVTMP(5J)*(FVAl.**2))  + (CNVTMP(} 
14)*(FVAL**J) )+(CNVTMP(3S)*{f V4L**4> )4(CNVTMP(l*)*{rV4L**S) ) 

GOTO  7800 

iO  RV4U«CNVTMP(7)  + CCNVTMP(a)«FVAl.)*  (CNVTMRCR)  * CFV41.**2)  ) ♦ (CN  VTMP  ( 1 0 ) * 
• tFVAL**3)  ) + {CNVTMPt  U )*{FV4L**4))  + (CNVTMPn2J*(FVAL**5) ) 

GOTO  7800 

iS  RV4L»CNVTMPa)*(CNVTMPf2)*FVAi,)  + tCNVTMP{3)*(FVAt**2)  )♦  (CNVTMP  (4)  • ( 
1FV*L**3) )+(CNVTMP(5)*(FV4L**«) )+(CNVTMP(6)*(FVAL**5) ) 

GOTO  7800 

0  »V4L*CNVTMPC25)  + (CNVTMP  C26)*FVAL)  + {CNVTMPC27)*(FVAL**2) )♦ (CNVTMP(2 
l8)*(FV4L**l) )t(CNVTMP(29)*(FVAL**4))*(CNVTNP(30)*{FV4l,**S) ) 

GOTO  7800 

5 HV4^«CnVTmP(55)*(CnvTMP(56)*FvAl)*(CnvTMPC57)*{FV4l«*2) )*(CnVTmP 
*{S8)*{FVAt,**S))  + {CNVTMP(5R)*(FV4L**«)  )*(CNVTMP(fcO)*(FV4l.**|)) 

GOTO  7800 

0 RV4i.»CNVTMPCl7)  + (CNVTHP(38)*FvA|.)ttCNVTMP(59)*(Fy4t**2))*{CNVTMP(4 
10)*(FV4t.**3}}*(CNVTMP(41}*(FVAL**4] ) « (CNVTNP ( 42) • (FV4L**5) } 

GOTO  7800 

LP4R*JP4R«15 

GOTO(73lO, 7340i  7330»  7350 i 7370) LP4R 

0 TANCTRt JPAR)»T*NCTR( JP4H)+t 
IF^NSAM  ,ST,  578)NSAMaNS4H*578 

IF(NS4M  ,6T,  384)  GOTO  73jt 

IFCNS4M  ,GT,  i92)  GOTO  7312 

1 LU.5 

2 U.4 

3 IREC»FPSTRn)-LL 

CALL  AM0V(MEASC77) ,FIRSTR,4) 

call  AMovt»^E*8n6n»0LT,a) 

FRTIKE»FIRSTR+CNSAM*0LT) 

CALL  STOHM8(FRTI*ie,ITlM,SEC) 

RFMT(9).RPAR{16) 

RFMTn4)«R0LKtn 
RPMT( 15)»RBLK(2) 

wRlTE{4,RFMT)ITlM(i),IcC;L,ITIMi2),IC0L,SEC,IR£C,JP4R, C PARlAB  ( J ) , J« 

146>  48) 

WR1TE(8|7940)L4N 

L2N£»LZNE+1 

GOTO  7700 
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ORTKAN  V004A 


t7|2«l«8 


27«JUC*7ii  RAGE 


7320 


7321 


7322 


7323 


IRESRC<*1 
IFCLAN  ,GT.  0} 

LU.iil.HEAT-1 

frtime.sstimeu,  UlL) 

CALL  STDHMS(FRTIME,1T1M,3EC) 
wRlTECfc,732niTI«a>iniM(2),5EC 
FORMiTMH  , 'HEATED  RC8R0N8IV1TV  AT 
IDUE  TO  INSUFFICIENT  SCANS') 
i.ZNE«LZNE«t 


GOTO  7322 


'»l2,'t',I2,*l',F7.«,'  ABORTED 


GOTO  7700 


HL*L5HL-1 

FHTIME«S8TlMCf *,LIL) 

CALI.  ST0MMS{FRTIME,ITIH,SEC) 

WRITE  (S,  7123  )lTlM(n,ITIM(2j,SEC 

FORHATdH  ,'SWL  RESFONSIVITy  AT  12,  ' I 12,  • I ' ,F7,a|  < ABORTED  DUE 
ITO  INSUFFICIENT  SCANS') 

LZNEalZNEYl 


GOTO  7700 


7330  TANCTR(JPAR)«TANCTR( JPAR)+1 


IFCNSAM 

.GT. 

576)NSAM«NSAH«576 

1FCN8AH 

.ST, 

304) 

GOTO 

7331 

IF(NSAH 

.ST. 

192) 

GOTO 

7332 

LLB3 

GOTO 

7333 

LL»S 

GOTO 

7333 

7131 
7332  LL»« 

7133  IREC*FRSTR(1)-LL 

CALL  AMOV(HEAS(SR),FIRSTR,tt) 

CALL  AM0V{M|A8U53)»DLT,tt) 

FRTIH£*FrRSTR+(DLT*(NSAM*l)) 

CALL  ST0HMStFRTlME;,lTIH,8EC) 

RFMT{9)iRPAR( IS) 

IF  CLAN  ,GT,  0 .AND,  LAN  ,LE,  9)  CO  TO  7315 

Rf HTtltt)«RINT(l) 

RFMTtl5)*RINT(2) 

wRlTF(S,RFHT)lTIM(n,lC0L»lTlM(2),IC0L*SCC» IREC,JPAR, (PARLAS(J),Ja 
152,5<1),LAn 
WRITE(S,T950) 

LZNEaLZNC^l 

GOTO  7070 

7335  RFHT(ltt)aR8LK(n 
RFMTn5)iR8LK(2) 

wRITF(b,RFHT)iTlM{l ) # IC0L#ITIM(2),IC0L»SEC»IRCC,JPAR, (PARLABCJ)» 
152,5a) 

LZRE»LZNE+t 

G0T0C733b»7l37,733e,7339,7J<l0»73ai»73a2»73«3»73aa)LAN 
wRITECS,7955) 


7336 

7537 

733S 


WRITE (6,7960) 
wR1TE(6,7965) 


GOTO  7070 
GOTO  7070 
GOTO  7070 
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7Jlf  4PITC(*»7#70) 
7140  MRITC(A,7«7$) 


GOTO  TOTO 


7341  Wf)ITe(4«7M0) 

7342  i»«ITtCA,7985) 

7343  WRirC(4,79«0) 


GOTO 

GOTO 

GOTO 


7344  TANCTRn7)«TAVCTR(l7)*l 
WRITE(4,7m) 


GOTO 


GOTO 

7350  IwlFG^l 

FRTlMt*S8T:ME( 

CALL  $TOHHS(FRTlME,ITlM,ieC) 

WRm(*,7l55>lTlMCn,  ITIM{2),SEC 
735»  FORRATdH  .'W/L  CAL  AT  M2,  ' I I2,  ' I • ,F7, 4, ' ABORTEO 
LZNC«LZRE41 

IPCLAN  ,6T.  0)  GOTO 

MRITE(6,7156) 

735*  F0PMiT(lH*,T4l, ' ALL  CHANNELS  HAVE  SATURATEO  DATAM 

GOTO 

7360  WRlTe(*,73*S) 

73*5  P0RHATdM*,T4l,  ‘ InSUPPICIInT  SCAnS  POR  CohRUT  AT  IQN  • ) 


7070 

7070 

7070 

7070 

7070 


DUE  TO') 
73*0 

7070 


GOTO  7070 

7370  1F(NHVAlO  ,C0,  0)  ihamfg«i 

rF(LAN  ,EQ,  0}  goto  7S00 

FRTIHE«8STlHCn,L) 

CALL  ST0MM8{FRTIME,ITIM,SECJ 

IPCLAN  ,6T,  *85)  GOTO  73*0 

WRITE (*, 7375) ITIHC n , IT1M{2),SEC,LAN 
7375  PORMATCIH  ,1X,  12,  ' i M2,  ' | ' ,F7.4,  ' W/l.  RAHP  SCAN  TOO  SHORT  - ',15, 
•'  SAMPLES') 

LZNE»LZNE+1 


GOTO  7070 

7180  wRITE(6,7185)IT1M(U,1TIMC2),8EC,LAN 

7385  PORMATCIH  • 3X, 12, • I ' , 12, • I • ,P7.4, ' w/L  RAMP  SCAN  TOO  LONG  - ',15, 
*»  SAMPLES') 

LZNEaLZNEAl 


GOTO  7070 

7500  WRITEC*, 7550)NMvALO 

7550  PORMATCIH  WAVELENGTH  RAMP  DATA  DERIVED  PR0M',l5,'  SCANS 

• OP  PREPROCESSOR  TAPE  DATA') 


7*00 

DO  7*50  jwl,15 

GOTO 

7070 

IPCANCNTRtJ)  ,EQ,  0) 

GOTO 

7650 

IPCISTAT  ,OT,  0) 

GOTO 

7610 

7*10 

IPCCPR8TR£l).2)  .LT.  ANRECCJ)) 
call  AM0VCMEAsn),FRTlME,4) 

GOTO 

7650 

call  ST0HMS(PRTIME,ITIM,SEC) 
IRECiFRSTRCl )-4 
RFMTf*)«RPARCJ) 

JD*3*J 
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ORTRA'4  V004* 


27»Jul.*7k 


JC>JD«2 

»rMta«)«RlNTtn 

RPMT(i5)»«INT(2) 
WRlTC(6,RfWT)X7IM(n,  ICOL 
tJO), ANCNTR( J) 

IFdSTAT  ,tQ,  0) 
jABtC»*^'«EC(J)-(FR8TR(U-<0 


, ITXM(2)»IC0U#8i:C»  X«EC,J»  (R*Rt*8(N> »Nr,JC, 

GOTO  78S0 


X8RtC»LREC0»X*RfcC 

RdRECaXBREC/1.5625 

XBRECsRBREC 

IftlBREC  ,EQ,  OXIBRECai 

IBREC«IAB8(XBREC) 

MRITE(B«7f08)IBREC 


GOTO  7*}S 


7B10  wRITE(B»7ROO) 
7835  ANCNTR(J)«0 
ANRCC(J)«0 
ANSTAT(J)«0 
L<2ME«UZNE*t 
XFtLZNl  ,UE.  fcOJ 
X8X8B1 


GOTO  7840 
GOTO  5BBB 


7840  ZSXS«0 
7850  CONTXNUE 


C 

c 


7700  4RET»KR|T*t 

GOTO C 7710# 7720# 77 JO » 7740 1 7B44f 7750) MRET 


7710  call  8EC(  *0KHFL0P40,  JJJ*  »0»0) 

^7720  CALL  SEC( 'OKI IRE8PRO.000' *0#0) 

^77J0  call  SEG{»OK1|RAMPRO,NNN«,0»0) 

C 

7740  call  SEC(*OKH4VLPRO,MHM«  ,0»0) 

^7750  CALL  8EG ( ' DM I0I APRO.KKK ' , 0* 0) 

Seoo  hHXTE(8.RFWT)ITIMn),ICOL»ITXH(2)#ICOL,SEC*IHEC,JFAR,(RARLABU)»J« 


1JC« J0)«RVAL 
LZNEbLZNC^I 
GOTO(7tlO, 7810, 7820, 
*830»7820,7810)JP*B 
7810  8HITE(8, 78101 


7820,7820,7820,7820,7820,7820,7820,7810,7610,7 


goto  7070 


7820  wR X TE (8, 7*20)  GOTO  7070 

7830  WRXTEC8, 78301  GOTO  7070 


C 

C ***************************************** 

c * fORMAT  STATEMENTS 

^7800  POBMATCIH*,TJ01, ‘ANOMAlIEB  IN  30  BCANS'l 
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fortran  vooaA  i7i24taa  a7*juL-7i  pace  q 

c 

^7901  FORMAT(iH+#TlOl» ‘ANOHAliEI  ZN*«X5#i  SCANS') 

7910  FORMAT(JM*»nO)# 'VOLTS') 

c 

7980  PORMATClM+»Tl01» 'DEC,  CCNTICRAOE') 

c 

^7910  F0RHAtaH*#T101,'0l6,  KELVIN') 

^7940  FORMATnHTfTlOOf 'A*  f I2f ' 8VNC  VALUE  TOO  LOW) 

^7950  FOAMAT(lM^»TtOl» ♦ SAMPLES  IN  A SCAN') 

^795*  FORMATaM*»T10J# 'CHi  A4  PCM  ABOVE  50  CNTS») 

7960  PORMATUHT^TlOl WCM#  A«  PCM  BELOW  956  CNTS') 

c 

^7961  PORMATt IH+#T101» 'W/L  C*L  UPPER  LIMIT') 

7970  PORMATUHTi  TlOl# 'W/L  CAL  LOWER  LIMIT') 

C 

^7975  PORMATC1H+#T101# 'NO  W/L  LOWER  LMT») 

79S0  F0RMATCtH*#T10li 'NO  W/L  UPPER  LMT') 

C 

^7905  PORMAT(lH+,TlOi» 'W/L  RANGE  TOO  LONG') 

7990  P0RMAT(tH^#T101» 'W/L  RANGE  TOO  SHORT') 

C 

^7991  F0RMATnH+,Tt01# 'A«  ST,  LINE  TOL,  BAD') 

7999  CALL  8EG( 'OKI iQAEXCC.GGG' «0f 0} 

END 

ROUTINES  CALLEOl 

DATE  « AMOV  » STOHMS,  IAB8  , SE6 
SWITCHES  • /ONf/SU»/eO 


BLOCK 

main. 

anoat 

OCOATA 

SAVE 

times 

INTNDX 

OCARCN 

INPUT 


length 

95«S  (021610)* 

91  (000266) 

>993  (017462) 

^5  (000062) 

S28  (002024) 

S (000012) 

20  (000070) 

ISO  (000474) 


••compiler  CORE** 

PHASE  USED  FREE 

declaratives  04594  12672 
EXECUTABLES  05511  11755 
assembly  0337S  16005 
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• 

SEOD 

SRUN  rORTRN 
rORTRAN  VOOAA 

i0KlilXARR0.0BJ,URl<DKU8lARR0«RTN/0N/IU/C0|R9 
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FOUTftiN  V004A 


ni27i0t  *7»JUU»7I 


BXAFRO 


OOUBU  PRECISION  f»TMC»S»TXME*OSEC 
XNTE6ER  AN8TAT 
INTEGER  ANCNTR»ANREC 
INTEGER  PRNDXI.P»N0*E»PRN0*I 
GINENGXON  XSVMRtJS) 

COMMoV/PRNOX/  ^*^®*'**'***^'*2A?T**NaTlTri5i*KRET* 

COHMON  /ANOAT/  JPAR»N$AM,UAN»MACTj AN8TAT ( 15) *RRt  » 

COMHON  /*NU*T,  ;nCnW{15),ANREC(15),TANCTR(18),IREIPG, 

* iwUEG,  IRAMPG, LINE, IPG 

*,  IPIOK 

COHMON  /INPUT/  , cuL  LWLN 

COMMON  / INTNOX  / Uf  LBIAS,  LMEAT,  I.SNL#  L"l- 

COMMON  /IIXSV/  IlIX 

COMMON  /TIMES/  BJD«  TUMT^trT)  IBMXSSfT)# 

COMMON  /BIAOAT/  IBMI«l{7)^  ..  * XBMI»9[7J, 

^ lBHISR(7’if«  IBSN»  UCMPLT(2j 

COMMON  /H180AT/  iRMPLGf  tSoNE®*  IBVMOr' 

t ICLHOR»  INtHOR*  XOONE»  XBVHDM 

CQUIVAUENCI  (IIN(2B)»iaVMR(n) 

DIMENSION  NTABUPCSO) 

EQUIVAtENCE  (I IN(22) , IS VNC ) » ( I IN C2J) • XENp) » ( I IN (2«) » ISMIN) , 

1 (IIN(25).ISMAX) 

IPCLCMPLTcn  ,EO.  0)  jj;; 

IP  (LCMPt,T(  1 i ,Cfl»  UBIAS)  goto  2010 

IP{I,CMPIT(2)  ,EO.  1) 

anomalous  condition  • NOT  ENOUGH  BIAS  CAL  SCANS 

0SCC«SSTIME(1,LB1A8) 

CALL  ST0HMS(0S£C» ITIM,SEC) 

•OHTEO  • INSUFFICIENT  SCANS') 

LCMPLT(2)«1  goto  1700 


2010  LCMPLTn)«LBIAS 
LCmPLT(2)«0 

2020  IF(LCMPLTC2)  .EO.  1) 
2010  ILOaPRNDXl ( 1 • 1) 
IHI«PRNDX1(2»1) 


GOTO  2010 
GOTO  19RR 
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rOKTItAN  V004A  I7t27t0l  27»JUU-7t  PAGE  2 

C •*  START  SCAN  START/STOP  OCTCCTlON  «*  I 

C •*  NPICN  ■ t SAYS  NOT  LOOKXNO  FOR  VERY  FIRST  SCAN  **  1 

C 

2100  XFCNFSCN  .GT.  0}  GOTO  2110 

NSAMPtal 
NiXaO 
C 

C **  SET  UP  MEAS  ARRAY  LOCATORS  FOR  ALL  SIX  CHANNELS  ** 

C 

2110  ILL*IL0*1 

LOCAlaSSO^ILL 
LOCAIalCRA^XLL 
L0CASB1672^ILL 
1 L0CAas224S^ILL 

L0CASb2S2A«XLL 

LOCAAR34004ILL 

I C 

I C **  NX  IS  THE  SCAN  SAMPLE  COUNTER  •• 

I C 

i 2120  NX«0 

r XFdSTA  ,EQ.  1)  GOTO  2200 

C 

C **  check  channel  as  for  SYNC  PULSE  (ISYNC)  ** 

c 

21S0  zF(MEAS(LOCAb^NX)  ,LT,  XSYNOGDTO  2140 

XSlXsXSZXtl  I 

ZFdSiX  .EQ.  2160TO  2140 
XF(NX»1  ,LT,  0)GOTO  2170 
C 

C «*  check  channel  A4  for  minimum  PEAK  COUNT  (lEND)  ** 

C 

XF(MEAS(L0CA4<^(NX«in  ,LT,  ZENO)  GOTO  2700 

C 

c **  CHECK  SYNC  Pulses  on  other  channels  ** 

c 

2140  IF(mEASCLOCAUNX)  .LT,  ISYNOGOTO  2190 
IF(MIA8(L0CA2v<NX)  ,LT.  ISYNOGOTO  2190 
IF(MEA8(L0CAS*NX)  ,LT,  ZSYNC)G0T0  2190 
XF{MEA8(L0CA5+NX)  ,LT,  ISYNOGOTO  2190 
GOTO  2500 

C **  CHECK  FOR  SCAN  TOO  LONG  (>  ISMAX)  ** 

C 

2140  XSZXbO 

; ifknsampl^nx)  .gt,  xsmaxigoto  2100 

XTST»IL0+NX*NIX-1 

XFdTST  ,6C.  IHI)  GOTO  2180 

2170  NX«NX+1 

GOTO  2130 
C 
C 

21S0  IFCNFSCN  ,EQ,0)  GOTO  3999 

C 

C * * « check  part  OF  SCAN  FOR  HISTO  VALUES  * * * 

C 

NRET«1 

I8S»NSAMPL*5  KMODUCffilLITY  OF  THfl 

2.10-14  original  page  is  poor 
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fortran  V004A 


1712710*  27*Jm.*7R  FACE  S 


iaE>NX>l 

IF(NF$CN  ,67.  1}  ISS«2 
IF  (IIN(3)  ,6C.  0) 
XN0>21ft0 

CALL  RDUMP(IN0*tN0f n 

call  RDuMRnaSf t98»n 
call  F0UMPnBE,I6E«l) 

2169  NSAMPL"N3AMPLaNx 

nfscninfscn^i 

NIXBO 


6070  2669 


60T0  2669 


6070  3999 


CHECK  FOR  ENO  OF  MgAS  ARRAY  OR  DATA  PERIOD  ** 

2190  IF((HX<»n  .67,  IHI)C070  240C 
n»Nx*i 
6070  2210 
2200  II«NX 

**  CHECK  NEXT  VALUES  IN  OTHER  CHANNELS  FOR  SYNC  PULSES  *• 

2210  IF(MEAS(L0CAl«in  ,tT.  I9YNO60T0  2221 
XF(MEAS(L0CA2*m  .LT,  XSYNOG070  2222 
1F(HEAS(L0CA3«XI)  .L7,  ISYNOGOTO  2223 
IF(HEAS(L0CAiAXn  .L7.  ISYNOGOTO  2229 
GOTO  2900 

•*  ANOHALY  • BAD  SYNC  PULSE  «•  SCAN  NOT  REJECTED  ** 

2221  LANal 
GOTO  2230 

2222  LAN«2 
GOTO  2230 

2225  LAN«3 

GOTO  2230 

2229  LANS5 

2230  JPAR>1* 

MSAHaNX 

KRET<iS 

CALL  SCG(I0K1|ANPR0.LLL>*2) 

GOTO  2900 

* * PREVIOUS  scan  invalid  ••  ZERO  BIAS  HZSTCCRAM  ACCUMULATORS  • * • 

2300  call  ZCR0(IBHISl(n,7) 

CALL  ZER0(IBHIS2(1),7) 

CALL  ZEROaBHX93(l)»7) 
call  ZER0n6Hl89(l),7) 

CALL  ZER0(IBHIS6(l)f 7) 

ISSNvO 

NSAHPLal 

C **  ANOMALY  ••  BAD  SYNC  PULSE  ON  CH,  A6  ** 

NFSCN«1 

JPARiU 

NSAMaNX 


i 


JSC-IOIAO 


FORTRAN  V004A  17l27l08  27-JUL-7*  FACE  a 

LAN«6 

KRCTaS 

CALL  SEGMOKItANFRO.LLlSS) 

GOTO  2170 
C 

C * * end  of  MCA!  ARRAY  DATA  « ChECK  DATA  FQR  HISTO  VALUES  * * 

C 

2400  ISTA«1 
NRCTbS 
!B8«NSAMPL 
ZBCfN8AHFL^NX«9 

ZF  (ZZN(3)  ,GC,  03  GOTO  2665 

ZNO«2400 

CALL  POUMP(INO,ZNO|13 
CALL  PDUMPUBSiZBS,!) 

CALL  PDUHP(ZBE»ZBC,n 

GOTO  2665 
C 

C * • CHECK  FOR  CORRECT  MUMBER  OF  SAMPLES  ZN  SCAN  * * 

C 

2500  ZF(NFSCN  ,EQ,  0}  GOTO  2530 

ZF((NSAMPL^MX)  ,GT,  ISHAX3GOTO  2510 
ZF{(M8AMPL«NX)  .LT,  ISH1N3GOTO  2510 
iPSOKst 
GOTO  2530 

^ I 

C **  anomaly  ••  SCAN  TOO  LONG  OR  TOO  SHORT  ** 

2510  JPAR«16 
NSAMaNX 
ZPSOKaO 
NFSCNaO 
LANaNVMPL^NX 
KRETaS 

CALL  SEG(IDK1|ANPR0.LLLS2) 

IHZalHZ-NXX 

C 

c **  Check  for  fzrst  chs  a4  sample  less  than  50  pcm  cnts  ** 
c 

2530  ZIaL0CA4^yNXfl 

IF(MEA«(ZZ)  ,LT,  50)G0t0  2540 
NFSCNaO 
C 

C **  anomaly  ••  FZRST  SAMPLE  ZN  A4  TOO  HZGH  ** 

C 

JPARalS 

NSAMaNX 

LANa2 

KRETa5 

call  8EG(  •0K1IANPR0.LLLS2) 

GOTO  2570 

2560  NFSCNaNFSCN^i 
C 

C **  IS  PREVIOUS  SCAN  OKAY?  ** 

C 

2570  IFdPSOK  ,EQ,  1)  C070  2560 
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^0 


17I27I0B  27«JUL»7A  PACE  5 

LOCAl^tOCAUNX 

LOCA2iL0CA2«Nx 

LOCAJaLOCAI^NX 

L0CA4«L0CAA4NK 

LOCASnOCASfNX. 

LQCAAaUOCAA^NX 

NXXvNX 

NXai 

NSAMPLat 


C 

c * * Check  mcas  arrat  data 

C 


2S80  NR£T«2 
XB8«1 
lB[aNX«5 
XF  (I2N(S) 
XNO*25ao 


.CE,  0) 


CALL  FOUMF(INO,INO,1) 
CALL  P0UMP«IBS,XB8,X) 

call  FDUMPCBE^XBE,!) 


VALUE!  For  HXBTOCRAH  • 


*' 


GOTO  2130 


GOTO  2665 


2600  ISBNaXSBN^l 

XF(X88N  ,LT,  2) 
LCMPLTC2)al 


GOTO  2665 
GOTO  2650 


2650  LOCAlaLOCAUNX 
L0CA2aL0CA24NX 
LOCAlaLOCAifNX 
L0CA4aL0CA44NX 
L0CASaL0CA5«NX 
LOCA6aLOCA6*NX 
NlXaNX 
NXal 

NSAMPLal 


2700  call  ZER0(IBMISI(1),7) 
call  ZCP0<IBHI82(l),7) 
call  ZER0(IBHI83(1),7) 
' CALL  ZCR0(IBHI85(1),7) 
CALL  ZER0(XBHI66{1),7) 
IS8Nao 
tPCOKaO 
NFiCNaO 
NSAHPLai 
JPARsii 
KRETaS 
NSAMaNX 


LANa2 

CALL  SCCC»0K1|ANPR0,LLL»»2) 


2665  DO  3000  LalBS,IBE 
00  2900  Mai, 7 
IF(MEA8(L0CAUL)  ,NE, 
I8HX8i(MJaIBHl8ifH)+l 


XBVMR(M)) 


GOTO  2110 


GOTO  2140 


GOTO  2900 
GOTO  2910 
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FORTRAN  VOOAA  t7t27l0«  27»JUL*7A  PACE  A 


2900 

CONTINUE 

XP(HCA8(L0CAUL)  *LE.  XBVHRU)) 

GOTO 

2905 

XaHXtl(7)>XBHISl(7)tl 

GOTO 

2910 

2901 

XSHI81(l)«IBHISm)«t 

i 

r * * Channel  a2 

2910 

DO  2915  H«6,ia 

IF(MCA8(L0CA2^L)  ,NE,  XBVHR(H)] 
HMsH«7 

GOTO 

2915 

XBHXI2(MM)bXBHI82(MH)«1 

GOTO 

2925 

291S 

CONTINUE 

XF(MEA8(L0CA29U  .LE.  IBVHR(S)) 
XaHXS2(7)«IBHI82(7)«l 

GOTO 

2920 

GOTO 

2925 

2920 

IBHI82(1)6IBHI82(1)91 

* * 

* CHANNEL  A1 

292S 

DO  2930  Mmi5|21 

XP(HEA8(L0CASfL)  ,NE.  I8VHR(M)J 
MH«H«ia 

GOTO 

2930 

I8MI83(MMJtIBHl83{HM)+l 

GOTO 

29«0 

29S0 

CONTINUE 

IF(HEA8(L0CA34L)  .LE,  IBVHR(lS)) 
XBHI83(7)rIBHXS3(7)«1 

GOTO 

2935 

- 

GOTO 

2940 

29}S 

IBHX8}(l)«2BHl83(l)ft 

* * 

* CHANNEL  AS 

29410 

DO  2955  Mi22,28 

IF(HEAS(L0CA5^L)  .NE,  IBVHR(H)} 
MM«H»21 

GOTO 

2955 

IBHI85(HH)«XBHIS5(HMU1 

GOTO 

2965 

29S9 

CONTINUE 

IF(MEA8(L0CA5«L)  ,LE.  IBVHR(22)) 
XBHXS5(7)fIBHISS(7)fl 

GOTO 

2960 

GOTO 

2965 

2960 

IBHI8S(1)6IBHIS5(1)41 

* * 

* Channel  a6 

2969 

DO  2980  M929»35 

IF(HEA8(L0CA6+U)  ,NE,  IBVHR(M)) 
HMrH-28 

GOTO 

2960 

IBHX86(HM)RlBHIS6(MM)fl 

GOTO 

3000 

2980 

CONTINJt 

1F(MEaS(L0CA6+L)  ,LE,  IBVHR(29)) 
IBHI86(7)RlBH186(7)f 1 

GOTO 

2965 

GOTO 

3000 
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FOBTB*^  VOO«A  17I27I0B  27-JUL.74  FiGE  7 

2BB5  lawiSbfl )«IBMI56(1)*i 
3000  CONTINUE 

(IJN(3)  ,GE,  0)  cntn 

WHlTE{0,lOtO)(IBVHR(J),J»t,7),(T§HI81f)l1.K»!  Tl  SOTO  3061 

"***  VOLTAGE  HllTOGRAHS/,1  RancE  »,7XS,/,T 
voltage  HUTOGRAm',/,*  range  »,7I5,/,T 

mRJTE(6f3030)(IBVHR(J).jc)S.2))f IfMIsif Kl 

i,7is,/,t 

VRITE(6»3050)(IBVHR(j)^j«22»28)t(IiHISIft<I^i<*i^7» 

aj^8  VOLTAGE  MIfTOORAHS/J  • ranGE  »,7I5,/,t 
write  (6, 3060  )(I8VHR(J)!’jl29rs5)r(rBHrsifKj*iIf*T^ 

®“*  VOLTAGE  HIITOGRAMS/,*  RANGE  »,7I5,/,T 
3061  CONTINUE  **  i ,/,  TA,  7 j5j 

SOTO(2ia5,2600»5999)NRET 
3070  NTABUFn)»l« 

RTABUF(2)*1 

CALL  *M0V(ieHI8l(t)»NTABUF(7)*7) 

CALL  NTRANUa,  1 , 50»  NTABUF(  1 3 ) 

5>00  CALL  NTRAN'da,  iSfLBTAT) 

IF(LlTATil)3llO, 3100, 3120 
3110  LULU-12 

w«ITE(6,3B00)LULU,LSTAT 

3120  NTABUF(11b15 
NTABUF(2)«2 

call  *M0VabHI82(l),NTAflUF(7),7) 
call  NTRAN(12,i,50.NTABUF(D) 

3200  CALL  NTRAN<12,15,L8TAT) 

IFaSTAT+nSIlO, 3200, 3220 
3210  LULU«12 

WRITE {6, 3800) LULU,  LST AT 

3220  NTAeuF(n»l6 
NTA8UF(2)b3 

call  EW0VCIBHr33M),NTABUF(7),7) 

CALL  NTRAN(ij,i,5o,NTA8UF(i) ) 

3300  CALL  NTRANtl2,15,LSTAT) 

11. « 3300, 3320 

3310  LULU«12 

WRITE (6, 3800) LULU,  LST AT 

3320  nTABuF(1)bi7  GOTO  0000 

NTABUF{2)bS 

CALL  3R0V{1BHI5S(1),NTABUF(7),7) 

le  5*^**  '^T*’*N<12,1,S0,NTABUF(D) 

3500  call  NTRANfi2,i5,,_STAT) 
l^CLSTAT*n35lO, 3500,3520 

3510  LULUal2 

W«ITE(6,3800)LULU,LSTAT 


GOTO  0000 
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I 


’OUTRAN  V004A 


17l27l0a 


27«juc*ra  pAce  s 


}$«0  NTABUFCDBia 
NTABUF(2)«a 

CAUL  AMOVU8HISAa)#NTABUP{7J»7) 
CALL  NTRAn(12,1,$0«NTABuF(U) 
1600  CALL  NTRAN(12,i9«L9TATl 
IF(LSTAT«l}S6ie<S600,S620 
1610  LULUA12 

WRITC(6,lB00)LULUfLSTAT 

1620  IBVFL6P1 
1610  NXiiO 
NIXiO 
NSANPLaO 
NFSCNaO 
IPSOKPO 
ISSNPO 


C • WRITE  lEROS  IN  THE  HISTORICAL  FILE  RECORD 

1700  NTABUF(n«ia  * **  ******** 

CALL  ZCROtNTABUf (2),49) 

CALL  NTRANa2,l,50,NTABUF(l}} 

1702  CALL  NTR*R(j2,i5,t9TATj 
IMLSTAT*ni70tt,  1702, 1706 
1704  LUL>12 

NRlTt(6,lB00)LliL,L9TAT 


SOTO  4000 


GOTO  396« 


1706  NTABUF(n*15 

CALL  NTRAN(12, 1,S0,NTABUF( n ) 
1712  CALL  NTRANC12, 15,LSTAT) 
IF(L8TATtt)17l4,37l2,17l6 
1714  LJLA12 

NRITC(6,1«00)LUL,LSTAT 


GOTO  4000 


1716  NTABUF(1)616 

CALL  NTRAN(12,l,50,NTA8UF(in 
1722  CALL  NTRAN(i2, i5,L»TAT) 

IF  (LSTATt 1)1724,1722, 1726 
1724  LULP12 

wRITE(6,1«O0)LUL,LSTAT 

1726  NTA8UF(1)«17 

CALL  NTRANn2,l,50,NTABUF(l)) 
1712  CALL  NTRANH2, 15,LSTAT) 

IF (L8TAT+ 1)1714, 1732, 3736 
1734  LUL«12 

wR1T€C6,3«00)LUL,LSTAT 


GOTO  4000 


GOTO  4000 


1736  NTA6uFn]«lS 

CALL  NtRAN(12, l,SO,NTABuF(l)) 
3742  CALL  NTRANC12, 15,LSTAT) 

IF  (L8T AT* 1)3744, 3742, 1746 
1744  LULA12 

wRITE{6,3400)LUL,LSTAT 


GOTO  4000 


GOTO  4000 
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1712710#  27«JUl.«7#  FACE  # 


374#  IBVFlOvt 

GOTO  3450 

3800  FORHATdHOf 'NTRAN  WRITE  ERROR  ON  UNtT'iI4f*  STATU#  WORDSI#) 
3499  CALL  SEG(  «DK1  iQAEXEC.GGGSOrO) 

4000  CALL  8EGRET 

end 


ROUTINE#  CALLEDi 

8T0HH8,  PDUHF  , #EG  « ZERO  , AMOV  , NTRAN  , SECRET 


SWITCHES  « /ON«/SUf/CO 


BLOCK 

LENGTH 

main. 

3170 

(014304)* 

PRNOX 

54 

(000154) 

anoat 

91 

(000266) 

DCOATA 

3993 

(017442) 

RESDAT 

712 

(002420) 

INPUT 

IS# 

(000474) 

INTNOX 

5 

(000012) 

8XXSV 

1 

(000002) 

time# 

522 

(002024) 

BZADAT 

3# 

(000114) 

HXSDAT 

S 

(000020) 

♦•COMPILER  • 

••••  CORE** 

PHASE  USED  FREE 
DECLARATIVES  04642  12404 
EXECUTASLES  05031  12235 
ASSEMBLY  02801  173S2 


JSC-10140 


ieoD 

$RUN  FORTRN 
FORTRAN  VOORA 

#OKUaLKOAT,OBJ,LP|<DKl |BUK0AY,FTN/0N/SU/C0|9R 


2.10-22 


JSC-10140 


#COD 

«IIUN  FORTRN 
FORTRAN  VOOAA 

#OKlllLRDAT,OBJ,tRt«OKllBUKDAT.rTN/ON/SU/COtM 


•ft-TyTV 


JSC-IOIAO 


'-4 


FORTRAN  VOOUA 


17129 I2< 


27-JUl 


PAGE 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BLOCK  data 


BLOCK  data  subprogram  FOR  CONTROL  INPUT  PROCESSOR 
BLOCK  DATA!  0A191H 


* TYPE  STATEMENTS 


double  PRECISION 

1 OLAB, 

2 SSTIME 


* dimension  statements 


DIMENSION 

1 OLABl  90), 

i IBND(U,S4) 


* COMMON  STATEMENTS 


common 

COMMON 

COMMON 


INPUT 

ERROR 

RDARG 


I 


common  / ROCNTL  / 


common 

COMMON 


/ TIMES 


IIN(102) 

IERRC20) 

INIT 

IPRINT 

NIIN 

NREAD 

NLI 

LABELI C5,72) 
BJD 


,RIN(28) 


,11 
,NI 
,NRIN 
, nC 
,NLR 

,L4BELR(S,o) 

,SSTIME(2,65) 


.12 

, NR 

.ntitle 

, NR 

,IFMT(12,13) 

,8ND(2.b«) 


/ TITLES  / ITITL(32) 


» equivalence  statements 
equivalence  C I bno C 1 , 1 ) , BND( 1 , I ) ) 


, (OLAB, LABELI) 


DATA  statements 


* FmT 


NO 


INDEX 
TO  NO 
RECS 
TO  RD 

NO  OF  NO  OF 

RECS  PARAM 

TO  BE  IN 

READ  RECRO 


TYPE 

OF 

CONVR 


INDEX 

TO 

BOUND 

ARRAY 


INDEX 

TO 

IIN 

array 


index 

INTGH 

LABEL 

ARRAY 


INCRM 

TO 

CONVR 

FACTR 


INCRM 

TO 

BOUND 

value 


INDEX 

TO 

RIN 

ARRAY 


INDEX 

real 

LABEL 

ARRAY 


DATA  IFMT/ 

1 1,  1, 

2 7,  1, 

3 I,  1, 


0, 

0, 

0, 


7, 
32, 

8, 


0 , 0 , 0 , 

• 3 , 0 , 0 , 

• I , 0 , 1 , 


0, 

0, 

1, 


1, 
I , 
8, 


0, 

0, 

0, 


I, 

0. 

6, 


0, 

0, 

0, 


2 . 10-23 


JSC-10140 


FORTRAN  VOOaA 


17|29|2<j  27»JUI.-7k  PACE 


U 

2. 

If 

i, 

3, 

ti 

1. 

1* 

1. 

1# 

data  NIlN/10f/,NBIN/ 
OATA  NLI/  72/,  NLR/ 
DATA 


U 

6S, 

1, 

5, 

«, 

1, 

1, 

U 


0« 
19, 
0, 
0, 
0, 
0, 
0, 
0, 
0, 
0, 


b, 
b , 
7, 

7, 
2# 

8, 
2» 
8, 
8, 


0, 

•2, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 


0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 


28/,NTITlE/ 

8/ 


9, 

n, 

i9, 

25, 

2b, 

27, 

28, 

28, 

29, 

30, 


1 
2 
3 

5 

6 
7 
a 

9 
A 
B 
C 
D 
E 
F 
G 
M 

I 
J 
K 
L 

M 
N 
0 
p 
Q 
R 
S 
T 
U 

OATA 


1 

2 

i 

9 

5 

6 
7 
a 

9 

1 

2 
3 


OLAB/ 


■sensor 
■site  no,' 

•MONTH  I 
■MRS.  DEL' 
■CAL  PERS' 
■linear 
■max  SAMP' 
'hST  RNCE' 
'LWPCM  PRi 
'MAX  TOL  ' 
■MAX  TOL  ■ 
■M*  HTO  R' 


n 

2) 

3) 

9) 

5) 

b) 

7) 

8) 
9) 


I8N0(l, 
I8N0( 1 , 
IBNOd, 
IBNOCl, 
IBNOn  , 
IBN0( 1 , 
laNon , 
IBNOCl , 
IBNDC 1 , 
ISnDci ,10) 
IBNOCl, ID 
IBNOCl, 12) 
I8N0CI, 13) 
IBNOCl, 19) 
BNOC 1 , 15) 
IBNOCl, 16) 
IBNOCl, 17) 
BnOc 1 , lb) 

I'lNO'.  1,19) 
I BNO  C 1 , 20 ) 
IBNOCl, 21) 
I8N0cI,22) 
IBNOCl ,23) 
IBNOCl, 29) 
IBNOC 1 ,2S) 
SNOci ,26) 
IBNOci ,27) 
IBNOCl, 28) 
IBNOCl, 29) 
IBNOCl, 30) 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/-I 

/ 

/ 

/ 

/ 


REC. 

LINE 

DAY 

MINS 

HVL 


F ' 
Nt 

I 

I 

PE  » 

I 


• 

I 
I 

■ EVMNPCM 
■LSMST  RNI 
' 9mST  RN' 
'ABMIPCM  ' 
■2  MIN  TO' 
■9  MIN  TOI 
'AOMN  HID' 


50 

I 

1 

0 

0 

0 

0 

0 

I 

0 

0 

I 

0 

0 

0. 

0 

0 

0, 

I 

0 

0 

0 

0 

0 

0 

,0E3B 

0 

0 

0 

0 


/, 
/, 
/, 
/, 
/, 
/, 
/, 
/, 
/, 
/, 
/, 
/ 9 
/, 
/, 
/, 
/, 
/, 
/, 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


1 , 16, 

0, 

16, 

1,  0, 

0, 

0, 

1,  20, 

0, 

20, 

0 , 26 , 

0, 

26, 

0,  0, 

1, 

0, 

0 , 61, 

0, 

33, 

0,  63, 

0, 

35, 

0,  87, 

0, 

35, 

0,  89, 

0, 

93, 

0,  97, 

0, 

51, 

NREAO/  13/, 

NC/  0/ 

IBNOC3,  1) 

/ 

99 

IBN0C3,  2) 

/ 

12 

IBN0C3,  3) 

/ 

31 

IBNOC3,  9) 

/ 

3 

IBNOCi,  5) 

/ 

1 

IBNOC3,  6) 

/ 

1990 

IBN0C3,  7) 

/ 

60 

IBNOCi,  8) 

/ 

60 

IBN0C3,  9) 

/ 

20 

IBN0C3, 10) 

/ 

5 

1BNOC3,  11) 

/ 

5 

IBNOci, 12) 

/ 

65 

I0NOC3, 13) 

/ 

1990 

IBNOC3, 19) 

/ 

60 

BN0C2, 15) 

/ 

60, 

IBNOC3, 16) 

/ 

1990 

IBNOC3, 17) 

/ 

60 

8n0c2, 18) 

/ 

bO, 

IBNOC3, 19) 

/ 

100 

IBNOC3,20) 
IBN0Ci,21 ) 
IBN0(3,22) 
I8N0C3,25) 
IBN0C3,29) 
IflN0Ci,25) 
BNOC 2, 26) 
IL'N0{3,27) 
1BN0C3,28) 
IBN0C3,29) 
IBNOC3,30) 


1023 
1023 
1023 
685 
685 
1023 
1 ,0E38 
1023 
1023 
1023 
1023 


0, 

0, 

0, 

0, 

1, 

0, 

0, 

0, 

0, 

0/ 

NB/  59/ 


/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

f, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/, 

/ 


■ORM.mISS ' , 
■0,  run  I, 
' tab  ■, 
■OEL  SECS', 
■RS,  TOTL', 
■SYNCA9  P», 
■CE  IHST  ', 
■GE  5hST  », 
'PRABmax  ', 
■t  2 max  I , 
■L  9 MX  FI, 

■ RAOMx  5', 


FL 

YE' 


■ ION 
' NO, 
'OPTIONFL ■ , 
■.  OEL  OV, 
' PERS,CN', 
■CM  ENOMI', 
■HNGE  2hS', 
■HNCE  6HS', 
■TOL  1 Mil, 
■TOL  3 Mil, 
•LO  RAOMN', 
■*L  RAOMN', 


NO,  ' 

I 

OPT» 


■ IGHT 
' Ar 

■ OEL 
■Rl.pers, 

•SEC  SCNS' 
■N  Sampusi 
■T  RNCE  3' 
■T  RNCE  7' 
■N  TOL  1 ' 
'N  TOL  3 ' 
' FLO  RAO' 

■ SmL  RAO' 


2.10-24 


JSC-IOIAO 


FORTRAN  V004A 

17l29i2tt 

27»JUL«7* 

PACE 

3 

u 

'MX  AMB  Rl , 

■AOMN  AMB'f 

• RADMX  B', 

•TH 

fOVMN'  , 

1 

BTH 

FOV 

5 

6 
7 

•MX  S»IL  F ' , 
' 

•OVHN  SML'> 
' '» 
' ' , 

' FOVMX  L*» 
' 

' '» 

1 

1 

FOVMN'  , 
' , 

1 

1 

1 

lml 

FOVt 

0 1 1 , 

9 • 1, 

data  labels/ 

' ' » 

' I . 

' '» 

' ' » 

1 

1 

' 1 
' . 

1 

t 

1 

' l*At  , • V£  ' , 

•LE'  , 'NC  , ' TMI 

# 

.? 

'CA','L 

15R1 , 1C  ' , »BR ' 

f 

i 

•CM', 'NL'i 

B' , ' I V , 'LT ' 

9 

4 

• RS ' , » P ' , 

'CO'.iEF', 1 0* 

9 

5 

•RS ' , 'P  ' , 

•CO','EF',i  1' 

9 

6 

'R5» , 'P  ' , 

•CO' , 'EF • , • 2' 

9 

7 

•HS'  , <P  ' , 

•CO' , 'EF ' , 1 3' 

9 

8 

1 1,1 

1,1  1,1  1 

/ 

END 


SWITCHES 

• 

/ON|/SU>/CO 

BLOCK 

length 

data. 

0 

(OOOOOO)^ 

INPUT 

158 

(000«7«i 

ERROR 

20 

(000050) 

RDARC 

6 

(OOOOIR) 

RDCNTL 

780 

(003030) 

times 

522 

(00202a) 

titles 

32 

(000100) 

••compiler 

PHASE 

USED  FREE 

DECLAKATIVES  05750  1351b 
executables  0U165  15101 
ASSEMBLE  00«i)l  192U2 


JSC-10140 


M 

seoo 

IRUN  FORTRN 
FORTRAN  V004A 

•OKJiCONDRV,OBJ,LR|<OKI IC0N0RV.FTN/0N/SU/C0I99 


JSC-10140 


FORTRAN  VOOUA  ITiJOlOO  27-JUL-7#  RAGE  I 

C ********* *********************************** ***««*«• 

c * 

c * 

C * LOAD  module  I CONDRV 

C * 

C * 

c **********•*•****•****«*****«*•**«•***•*****•***•*<,* 

c 

c 

c 

double  precision  SSTIHE 

c ****** •**************•****••••*****•«•**•***.••«.*.* 

C * COMMON  statements 

c *********•*******•*•****•*•••**•*«*•.*••..•..*...«•. 


COMMON 

/ INPUT 

/ 

IIN(102) 

,RlN(|fl) 

common 

/ ERROR 

/ 

IERR(20l 

common 

/ RDARG 

/ 

INIT 

,n 

.12 

IPRINT 

.NR 

common 

/ RDCNTL 

/ 

NIlN 

,nrin 

.ntitle 

NREAD 

iNC 

.NS 

NLI 

,NLR 

. IFMT(12, 13) 

LA8ELI(5,72) 

,LABELR(SiB) 

,BN0(2,5R) 

common 

/ TIMES 

/ 

BJO 

,SSTIME(2,65) 

INIT 

» 0 

11 

•1 

12 

•13 

IPRINT 

> 3 

NI 

» 0 

NR 

• 0 

CALL  CONINP 

IF  (lEPRCn  ,EQ, 

0) 

CO  TO  20 

DO  10 

I»l,3 

IF  (lERR(l)  .NE. 

e 

.AND.  lERR(I) 

,NE,  9 .AND, 

lERR(I)  ,NE,  1 

* CO  TO  15 
lERR(I)  ■ 0 


10  CONTINUE 
I ■ U 

15  IF  (lERR(I)  ,EO,  0)  GO  TO  20 
lERR(l)  *69 
IERR(2)  > 0 

call  3CC('0K1iERRDRV,hmh',2) 
20  CONTINUE 

call  secret 

END 


ROUTINES  CALLED! 


CONINP, 

8EG 

. SECRET 

SWITCHES 

1 ■ 

/ON,/8U,/CO 

BLOCK 

length 

main. 

20? 

(00062U)* 

INPUT 

156 

(000a7a) 

ERROR 

20 

(000050) 

RDARG 

6 

(OOOOIR} 

RDCNTL 

780 

(003030) 

times 

522 

(00202U) 

^T^RODUCIBILrrY  0FTE8 
'^alNAL  PAGE  IS  POOR 


2 . 10-2  7 


JSC-10140 


FORTRAN  VOOaA 


17130100  27-JUL-76 


♦•COMPILER  ••••-  CORE** 
PHASE  USED  FREE 

DECLARATIVES  01750  13516 
EXECUTABLES  04214  13052 
ASSEMBLV  01156  19027 


PAGE  2 


I 


JSC-10140 


g 

SEOD 

SRUN  FORTRN 
FORTRAN  V00«A 

«OKllOATOCM,OBJ,LP|<DKl |0AT0CM,FTN/0N/SU/C0|9R 


2 . 10-29 


JSC-10140 


FOSTRrtN  VOO«A 


17|30|26  27-JUL-7A  PAGE  I 


C 

C 

C 


BLOCK  DATA  FOR  0EC0M2  FOR  0A191H 


BLOCK  DATA 

DOUBLE  PRECISION  TABLI 
DIMENSION  TABLUSn 


1 


1 

1 

1 

2 
3 
u 
s 


COMMON  / DCCNTL  / 

I 

equivalence 

data 

I 

DATA  TABLI  / 'D007 


ISENSR 

nm 

(midm, 

ISENSR/tS/, 
IDOEC  / I/, 
>RPO  I 


,NTPS 
>MIDH(64) 
TABLI) 
NTPS/1/, 
NM  /21/ 
RROi  , 


IDDEC 


END 


,iA016-RROi,iA0l8-PRO',*A007-RRO', 
•AOOB-RRO', 'A019-RR0', 'A015*RRO', •A009»RR0I» 
'A013«RRO','A01<I-RRO','D005«RRO'i'0006"RROI, 
'A020«RROi,iAOl7-RRO','*OOl"RRO','*002-RRO'# 

' A00  3-RRO'  , • AOOU-RROi , ' AQOS-RRO' , ' A006- 
' A023-RR0' / 


-RRO  ' , 


SWITCHES  ■ /ON,/SU,/CO 

BLOCK  length 

D*TA.  0 (000000)* 

DCCnTL  88  (000260) 

•♦compiler  CORE** 

PHASE  USED  FREE 

declaratives  05750  13516 
executables  03853  13UJ3 
assembly  00836  193U7 


* 


2 .10-30 


» 


• 

SEOO 

•RUN  FORTRN 
FORTRAN  VOORA 

#OKl lDCHBUF,Oej,LP|<DKl lOCMSUF 


j 


t 


i 


i 


I 

I 

I 

i 

1 


I 

I 


JSC-IOIAO 


FTN/0N/SU/C0I99 


/ 


2.10-31 


JSC-10140 


rORTRAN  VOOUA  17130150  27-JUL«7fc  PAGE  I 

C **************************************************** 

C * BLOCK  DATA  rOR  0C0M2N 

c **************************************************** 

BLOCK  DATA 

COMMON  / DCOATA  / MEASC39R3) 

END 

SWITCHES  • /0N,/8U»/C0 

BLOCK  length 

data.  0 (000000)* 

DCOATA  3993  (017462) 

•‘COMPILER  CORE** 

PHASE  USED  F9EE 

OECLAHATIVES  03750  13516 
executables  03839  13427 
assembly  00800  193S3 


"is. 


tf 


=1 


A *•'  ' 

^y>7TT;pw><?(?WS«r^Tfg3S»J«?}W-'Tr^A  -’^  ...  •■  ■ 


JSC-10140 


i 

teoo 

tAUN  PORTRN 
FORTRAN  V004A 

«0KliDCM0RV,0BJ,LPt<0Kl|DCM0RV,FTN/0N/8U/C0|99 


I 


ff 

i;‘ 


l i: 

I >-. 

L.  3 


i. 10-33 


JSC-10140 


FORTBan  V00«* 


c*. 

c« 

c* 

c* 

c*« 

c 


17131109 


?7-JuL-76  PAGE 


OCOMJN  DRIVER  PROGRAM 


1 

2 

i 

it 


COMMON  /TIMES/  UJO,  S8TIME(2,65) 
common  /ERROR/  IERHC20) 

COMMON  / OCOATA  / HCASCJ991) 
COMMON  /OCARGn/ 


start. 

STOP, 

TOL, 

IFLACC, 

Fmt, 

lOKRTP, 

fRSTrcj), 

PRSTP(25 

I OBLE , 

LU, 

ISIZE, 

NTH, 

MAX, 

18TAT 

NAV, 

INIT, 

lOOC, 

lERHdJ.O 
call  OCOMJN 


IF({IERR(l),OT,0),AND,(ICRRCl)iLE.999n 
1 CALL  3EG( 'ERRORV.HMHt ,0,05 
call  5CG('DKI|Q*EXEC.CGC',0,05 

END 


routines  CaLLEOi 
OCOMJN,  SEC 


SNITCHES  ■ /ON,/SU,/CO 


block 

main.  96 

times  S2J 
ERROR  20 
OCOATA  3993 
OCARGN  je 


length 

(0003005* 

(0020245 

(0000505 

(0174625 

(0000705 

CORE** 

free 

13516 
13142 
19152 


**COMPilER  ..... 

PHASE  USED 
OECLaRaTIVES  03T50 
executables  04124 
ASSEMBLY  01031 


reproducibility  of  TIii 

ORIGINAL  PAGE  iS  POOR 


2.10-34 


JSC'IOIAO 


i 

lEOO 

SRUN  FORTRN 
>»ORTRAN  vooaA 

«DKUDECRXP.0BJ,LP|<DK1sDCCRXP,FTN/0N/SU/C0|99 


JSC-10140 


fortran  V004A 


17131132 


27-JUL<*7*  PACE 


Co 

C* 

C* 

c* 

Co 

c 


OCRIPT  DRIVER  PROGRAM 


double  precision  start,  stop,  TOL,  SSTImE 
INTEGER  FRSTR,  FRSTP,  FMT 


COMMON  / DCCNTL  / 


1 


ISENSR 

NM 


COMMON  /0C*RCN/  start, 

1 FMT, 

2 lOBLE, 

3 MAX, 

« ISTAT 


STOP, 

IOKRTP, 

LU, 

NAV, 


,NTPS 

,MlOH(6a) 

TOL, 


. IDOEC 


IFLAGC, 


ERST»(2),  FRsTP(2J, 


ISIZC, 

INIT, 


NTH, 

lOOC, 


common  /0C0ATA/MEAS(39R3) 

COMMON  /ERROR/  IERR(20) 
common  /times/  BJD,  SSTIME(2,65) 

FMTII27 
IERRm«0 
CALL  OCRIPT 

IEC{IERR(n.CT.O).ANO.  ClERR(n.LE,999n 

1 CALL  SEC( 'OKI iERRDRV,MMM« ,0,0) 

CALL  SECCDKhOAEXEC.GGG' ,0,0) 

END 


ROUTINES  CALLEOl 
OCRIPT,  8EG 


switches  ■ /0N,/SU,/C0 


BLOCK 

length 

main. 

loe 

(000330)  * 

dccntl 

86 

(0002b0) 

OCARCN 

26 

(000070) 

OCOATA 

3993 

(017R62) 

ERROR 

20 

(000050) 

times 

S22 

(00202U) 

♦•compiler  - 

••••  CORE** 

phase 

USED  Free 

declaratives 

03750  1351S 

executables 

01137  13129 

assembly 

01072  19J11 

2 .10-36 


JSC-10140 


« 

tEOO 

SRUN  FORTRN 

• 0KlllB«0RV°0BJ,Lf 


I 


I 

I 

i; 

{S 


IJ 

I 


2.10-37 


JSC-10140 


FORTRAN  V004A 


I7illl55  27-JUL-76  RACE  1 


C ..**.**.**.**i,**.****.  ***************  ******** 

C * MAIN  DRIVER  FOR  LOAD  MODULE  ERRDRV 

C ********************************************* 

COMMON  / ERROR  / IERRC20] 

COMMON  / ERRORI  / N,  lUARRVdO} 

common  / INPUT  / IIN(102)»  RiNcae) 

CALL  ERRPRC 

IP(IERR(n  .EQ,  69)  CALL  SECRET 
CALL  SEC(  iDKt  lOAEXEC.CCGSOfO) 

END 


ROUTINES  CALLED! 
ERRPRC.  SECRET,  SEC 


SNITCHES  ■ /ON,/SU,/CO 


BLOCK 

MAIN. 

Error 

ERROR) 

INPUT 


length 

67  (000206)* 

20  (000050) 

1)  (000026) 

)5B  (000474) 


**C0MPILER  -•••-  CORE** 


phase  used  free 

DECLARATIVES  0S750  IJ5)6 
executables  01940  )3326 
ASSEMBLY  00942  )924) 


REPRODUCBILITY  OF  THL 
ORIGINAL  PAGE  IS  POOP 


2 .10-38 


-rr-if-  • 


V ' 


JSC-10140 


« 

SEOO 

SRUN  rORTRN 
RORTf^AN  V004A 

•OKI i^L0PR0*08Jf URl<OKl j FLOPRO .FTN/ON/SU/CO | PR 


2.10-39 


r»r>o  ooo  oooo 


JSC-10140 


FORTRAN  V004A 


17l32lte  27*JUL-7fc  PAGE 


C* 

C* 

c 

c* 


•***  load  MODUlCl  flopro  *** 


* 


* 


• type  statements  

DOUBLE  PRECISION  START,  STOP,  TOL 

INTEGER  FMT,  PRSTR,  PRSTP,  ANSTAT 

integer  PRN0X1,PRnDX2,PRN0X5 

INTEGER  ANCNTR,  ANREC 


dimension  statements 

dimension  IIN(102),RlN(2a) 


COMMON  statements 


c 

c 

c 


COMMON  / CAlRT  / JJNT,  nDICa^,  NTRCAl 

COMMON/PRNDX/PRNOXl  (2,9)  ,PRN0X2(2,9),PRNDX3C2,R) 

COMMON  yANDAT/  JPaR,NSAM,LAN,MACT, AN5TAT(15)»KRET, 


ANCNTR(15) , ANREC (1 5 ) , T ANCTR ( I 8 ) , 1 RESFC, 


• 

IWLFG,  IRAMFG.LZNE 

,IPC 

common 

/ocargn/  start# 

STOP, 

TOL, 

IFLAGG, 

1 

FMT, 

lOKRTP, 

FRSTR(2)  , 

FRSTP(2), 

2 

IDBLE, 

LU, 

isize, 

NTH, 

3 

MAX, 

NAV, 

INIt, 

IDOC, 

u 

tstat 

COMMON 

/FLOAT/  J,K,LF, 

NM 

COMMON 

/Input/  iin(ic2) 

,RIN(28) 

COMMON 

/ OCOAta  / mEAS(399J; 

data  LM0I/60/,LMTR/60/ 

1F(JJNT  .£0,  0) 

1MAX6»IIN(71) 

IMINfc«IIN(7«) 

IIN(7J)«N0ICAL*LM0I 

IIN(7«)»NDICAL-LMDI 

IMAxi2»IlN(e5) 

IMIN12sIIN(66) 

I IN(85)«NtRCAL*LMTR 
I IN(86)»NTRCAL-LMTR 
C 
C 


1010  iPCPRNCxin,  1)  ,E0,  0)G0T0  1020 
NMEASB82 
GOTO  1030 
1020  NMEAS*70 
1030  LF«231 

00  1200  J«b3,NMEAS,2 
00  nOO  Kb)  , max 
C 


GOTO  1010 
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C 

IF(J  ,LE,  76)  GOTO  1040 

IF(K  .LT,  PRNDXin,l))GOTO  1100 

IF(K  ,CT,  PRNDX1(2,1))  GOTO  1150 

C 
C 

1040  IF(M£AS(LF*K)  ,CT,  IIN(J))  goto  1250 

1F(MEAS(LF^K)  ,LT,  IIN(J*1))  * GOTO  1250 

KFbO 
C 

1100  CONTINUE 

1150  LFoLF+MAX 

1200  CONTINUE 
GOTO  1300 
C 
C 

1250  LRET»1 

JPAR«CJ-61)/2 
GOTO  1900 

1260  NSAHcK 
KRETbO 

CALL  SEG( »DK1 I ANPRO.LLL* #2) 

GOTO  1100 
C 
C 

1300  LFbMEAS(179)-1 
DO  1400  Kal,MAX 

IFCK  ,LT,  PRNOX1C1,1))GOTO  1330 
IFCK  ,LT.  PRNOX1(1,4))GOTO  1310 
IF(K  ,GT.  PRNDX2(2,4) )G0T0  1310 
NM«91 
GOTO  1390 


1310 


C 

C 

1320 


C 

C 

1330 

1390 


1400 

C 

C 

1410 


IF(k  ,LT,  PRNOXl (1,5) )G0T0  1520 
IF(K  ,CT.  PRNOXl (2,5) )C0T0  1320 
NHb93 
GOTO  1390 


I^(r*.  iLT.  PRNDX1(1,6))gOTO  1330 
IF(K  ,GT,  PRNDXl (2,6) )00T0  1330 
NM»95 
GOTO  1390 


NM»89 

IF(MEA3(LF+K)  ,GT,  IIN(NM)) 

IF (MEA8(LF*K)  ,LT,  IIN(NM+1)) 
KFbO 

continue 

GOTO  1430 
LRET»2 


GOTO  1410 
GOTO  1410 
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JPAR»n 
GOTO  1900 
1420  NSAHaK 
KRcTaO 

call  SECC'OKIIANPRO.ULL' »2) 

GOTO  1400 
C 
C 

1430  LP«MEA8(190)-1 
DO  1490  Kil,MAX 
DO  1470  J«97, 102,2 
C 
C 

IF CMEASCLF+K)  ,CT,  IIN(J)) 

IF  (MEA8(LF^K)  #LT,  IIN(JfD) 

KFaO 

GOTO  1490 
1470  CONTINUE 
GOTO  1500 
1490  CONTINUE 
GOTO  1520 
1500  LRETaS 
JPARal2 
GOTO  1900 
1510  NSAMaK 
KRET«0 

CALL  SECC 'OKI iANPRO.LLL' ,2) 

GOTO  1490 
C 
C 

1520  LFaMEAS(l8l)-l 
NMaHEA8(l62)-l 
JaMAX*2 
00  1600  Kb1,J 

1F(K  ,LT.  PRNDX2(1,3) )OOTO  1530 
1F(K  ,CT,  PRNDX2(2,3))C0T0  1530 
IHIGMal023 
IL0W8998 
GOTO  1540 
1530  IHICH8llN(S3) 

ILOMb1IN(84) 

1540  IFCMEA8(LF*K)  .CT,  IHlGH)COTO  1550 
lF(MEA8(LFtK)  ,LT.  IL0w)G0T0  1550 
KFaO 

GOTO  1570 


> 

y 


GOTO  1470 
GOTO  1470 


1550  LRETa4 
JPARal3 
GOTO  1900 
1560  N5AMBK 
KRETbO 

CALL  8EC(»DK1iANPR0,LLL' ,2) 
1570  IF(MEA8(NM*K)  ,GT,  I1N(85)) 
IF CMEA8CNM«K)  ,LT,  IIN(86)) 
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GOTO  1580 
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KFaO 

GOTO  1600 
C 
C 

1580  LRET«5 
JPAR«14 
GOTO  1900 
1590  NSAMaK 
KRET«0 

call  SEC( »DK1 lANPRO.LLL' #2) 

1600  CONTINUE 

1610  IF(PRN0X1(1,5)  ,lE,  0)GOTO  1980 
LF«MEA8C189)-1 

c 

C 

J«PRN0X1 (1,5) 

NMaPRNDXl (2,5) 

DO  1700  KaJ,NH 
C 

IF (mEA3(lF+K)  ,GT,  IIN(87)) 

I^ (MEAS(LF^K)  ,LT,  IIN(88)) 

KF»0 

GOTO  1700 
C 

1650  LRET«6 
JPARslS 
GOTO  1900 
1660  NSAMaK 
KRETaO 

CALL  SEG( lOKl I ANPRO.LLL* <2) 

1700  CONTINUE 
GOTO  1980 


GOTO  1650 
GOTO  1650 


1900  IF(MACT  ,LE,  0)GOTO  1950 

IF(AgSTAT(JPAR)  ,CQ,  DGOTO  i960 

IffK  .EG.  1) 

IF(KF  ,EO,  0)COTO  1910 
GOTO  1920 

1910  KFaK 

goto  1950 

1920  IF((KF^1)  ,EQ,  K)C0T0  I960 
KFaO 

1950  LANao 

GOTO  1970 

I960  ANS7AT(JPAR)al 
LANal 

1970  0070(1260,1420, 1510, 1560, 1590,1 66 0)L RET 

C 

1980  IF(MAC7  ,LE,  0)60TO  1999 
JPARaO 
NSAMaO 
LANao 


GOTO  1910 
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KRET»0 

CALL  SEG( 'OKI lANPRO.LLL' >2) 
1999  CONTINUE 

CALL  SE6('OK1|QAE)(EC.G6G>»0|0) 
END 


ROUTINES 

CALLEDt 

SEG 

SWITCHES 

* /0N,/8Uf/C0 

BLOCK 

length 

MAIN, 

1198 

(004534)* 

CALRT 

3 

(000006) 

PRNDX 

54 

(000154) 

ANDAT 

91 

(000266) 

DCARGN 

26 

(000070) 

FLOAT 

4 

(000010) 

INPUT 

158 

(000474) 

DCDATA 

3993 

(017462) 

**COMPILER  - 

-•••  CORE** 

PHASE 

USED  FREE 

DECLARATIVES 

04331  12935 

EXECUTABLES 

04711  12555 

ASSEMBLY 

01942  16241 

PAGE  5 


2.10-44 


JSC-IOIAO 


« 

SEOO 

SRUN  rORTRN 
FORTRAN  VOOaA 

AOKllQAiRlH,oBj#LPl<DKl IQA191H,FTN/0N/SU/C0I99 


r*oo  oo  o o o r»  o 


■ 


» 


JSC-10140 


f^ORTRAN  V004A 


17133133  27-JUL-7*  RAGE  1 


• RESIDENT  PROGRAM  FOR  S191H  DATA  QUALITY  TEST  • 


double  precision 

DOUBLE  PRECISION 
DOUBLE  PRECISION 

double  precision 
double  precision 


STTME 

LSTTME 

SSTIME, START, STOP, TOL 

SUMTM 


INTEGER  ANSTAT,  ANCNTR,  ANREC 

INTEGER  PRNDXl ,PRNDX2,PRN0X3>FMT,FR6TR,FRSTP 


common  /AaCHNL/ 

COMMON  /4NDAT/ 


JPAR, NSAM, LAN, MACT, ANSTAT  1 15) ,KRET, 
ANCNTR(15),ANREC(15),TANCTR(l8),IRtSFG, 
IhlFG,  IRAMFG,LZNE, IPG 


COMMON  / CALRT 

common  /cmplet/ 

COMMON  /WVLDAT/ 
COMMON  /LASFRM/ 
COMMON  /MISDAT/ 

k 

COMMON  /BIAOAT/ 

> 

COMMON  /DCARcn/ 


COMMON  /DCOATA 
COMMON  /ERROR/ 
COMMON  /FLOAT/ 

common  /input/ 

COMMON  / INTNOX 
COMMON  /PRNDX/ 
COMMON  /QADAT/ 
COMMON  /RECPTR/ 
COMMON  /RESDAT/ 
».>AVJ2,  AVJ3,  AV 
k,  IPSOM 
COMMON  / SAVE 


/ JJNT, 
NCMPlT(2) 
MCMPlT(2), 
LSTTmE 

irmflg, 
iclmor, 

IBMISU7), 
IBhIS6(7)  , 

start, 

FMT, 

IDBLE, 

MAX, 

ISTAT 

/MEASC3993) 
IERR(20) 
JZ»KZ,LZF,NZM 
IINC102), 


noical, 


N'RCAL 


LMTLO,  LMTMI 


IRSFLG, 
InLHOR, 


IBVFLG, 

IDONE, 


IWLFLC, 

IBVHDR 


STOP, 
lOKRTP, 
LU, 

NAV, 


IBMIS2(7),  IBMIS3(7),  IBHIS5(7), 
ISSN,  LCMPLT(2) 


T0L» 
FRSTR(2) , 

isize, 

INIT, 


ielagg, 

FRSTPC2) , 

NTH, 

lOOC, 


RINCSs) 

/ L,  LBIAS,  LMEAT,  LSHL,  LWLH 
PHNOXl  (2,9) ,PRNDX2(2,9) ,PRN0X3(2,9) 


STTME,  mflc 
IVAR2 

JCNPLT(2),KCMPLTC2),NaAC605),NFSCN,NX,NSamPL,NIX 
J5,  AVJ6,  SVS2,  SVJ3,  SVJ5,  8VJA,  JSCNb,  NSSCAN 


common  /sixsv/ 
COMMON  /TIMES/ 

common  /titles/ 


/ IBGNSC  ,NMvaLO 

IPRVOK  ,ISAVPT 

tmcurr  ,TMFRCR 

SUMTM  ,RMSTOT 

RMNSUM  ,RMXSUM 

RNSMSO 
ISIX 

BJO,  SSTIME(2,65) 
ITITL(32) 


, lAHEAD 
. I AtiNDX 
, TMFRST 
, lAbSET 
,RXSMSO 


reproducibility  of  THfl 
riginal  page  is  poor 

2 . 10-46 


I 


I 


JSC-10140 


FORTRAN  VOOaA 


17:33133 


27-JUL-7A  RAGE  2 


CALL  NEWMMCC • AAA» ) 

CALL  SEC(i0KHCONORV,FFFi,0»0) 
IFdERRd)  .EQ.69) 

CALL  NEWMMCC 'BBB»  ) 

CALL  5EC( »DK1 IQAEXEC.CGCS l» 1) 

9600  call  SEGENO 

call  exit 

STOP 

END 


GOTO  9600 


ROUTINES 

called: 

NEWMMC, 

SEG  » 

SEGENO, 

SWITCHES 

3 /ON, 

/SU,/CO 

BLOCK 

LENGTH 

MAIN, 

180 

(000550)* 

AaCHNL 

685 

(002532) 

ANOAT 

91 

(000266) 

CALRT 

3 

(000006) 

cmplet 

2 

(000009) 

WVLDAT 

a 

(000010) 

LASFRM 

a 

(000010) 

HISDAT 

8 

(000020) 

BIADAT 

38 

(000119) 

OCARGN 

28 

(000070) 

OCOATA 

3993 

(017962) 

ERROR 

20 

(000050) 

FLOAT 

U 

(OOOOlO) 

INPUT 

158 

(000979) 

INTNDX 

5 

(000012) 

PRNDX 

sa 

(000159) 

QADAT 

5 

(000012) 

RECPTR 

1 

(000002) 

RESOAT 

712 

(002620) 

SAVE 

33 

(000102) 

8IXSV 

1 

(000002) 

times 

522 

(002029) 

TITLES 

32 

(000100) 

•★compiler  CORE** 

phase  used  free 
declaratives  03750  13516 
EXECUTABLES  05159  12107 
ASSEMBLY  01581  18602 


Ik 
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COMMON  /AnDAT/  JPAR,nSAM,lAN»MACT,  ANSTATCH)  »kret, 

* ANCNTRC15) , ANREC  { 15) , TANCTR ( 18) , IRESFC, 

* IwLFC,  IRAMFCiLZNE, IRC 


COMMON  / CAtRT  / JINT, 
COMMON  / CMPLET  / NCMPLTC2) 


NDlCAt> 


COMMON  /DCARCN/  START,  STOP, 

1 FMT,  IDKRTP, 

2 IDBLE,  LU, 

3 max,  nav, 

4 I8TAT 


TOL,  IFUACC, 

FRSTR(2),  FRSTP(2), 


ISIZE, 

INIT, 


NTH, 

IDOC, 


common  / DCDAT. 


MEAS(3993) 


common  / ERROR  / IERR(20) 


common  /hisoat/ 


IRMFLC» 

ICLHOR, 


irsfig, 

IwLhOR, 


COMMON  / input  / IIN(102), 


IBVFLO, 

IDONE, 

RIN(28) 


IWLFLO, 

IBVHOR 


COMMON  / INTNOX  / ,,  UBIAS,  UHEAT,  LSWU,  LMLW 
common  /LASFRM/  LSTTME 


COMMON  / PRNOX  / PRN0X1(2,9), 

I PRNDX3C2.9) 

COMMON  /RECPTR/  IVAR2 
COMMON  /OADAT/  STTHE,  MFLG 

common  / TIMES  / BJD, 

common  / TITLES  / ITITL(i2) 

DIMENSION  ITIM(2) 


PRN0X2(2,9) , 


ISTIME(2,b5) 


equivalence 

EQUIVALENCE 

equivalence 

equivalence 

equivalence 

EQUIVALENCE 


Cl INf 1 1 ) , IHTAB) 
(IIN(12),IDEL0P) 
ClINn3)  , lOELMR) 
CIINC14) , lOELMN) 
(lIN(tS),IOELSC) 
CIIN(16),N0VRL) 


double  precision  SSTIME,  start 

double  precision  LSTTME 

double  precision  STOP,  tol 

DOUBLE  PRECISION  LA8PRC,  FRSi'RC,  OELTME , TMS 1 53 , OELT 

double  precision  STTME 
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C 

INTEGER  PRNDXl,  RRNOX2i 

INTEGER  PMTi  FRSTRi 

INTEGER  ANSTAT 

INTEGER  ANCNTR.ANREC 
byte  B0ATE{9) 

dimension  NTABuFCSO) 

c 

DATA  U/'U'/ 

C 

call  setemt 

CALL  SETFILC2» 'ARR.TMPi , lERR, 'SY' ,0#0»0»2) 
define  file  2(S>bSS,U« IVAR2] 

CALL  NTRAN(12,5) 

mFLG«0 

IDDCbOI 

IFflOELOP  ,EO,  I .OR.  IMTAB  .EQ.  2) 

IFLAGGbO 

IOKRTPbI 

FRSTRdjBO 

I0BLE»1 

LU«R 

ISr7E-599J 

NTh»l 

MAXalB 

NAV»l 

INIT»0 

IERRa)»0 

C 

c 

call  3EG( 'DkI iDECRIP.RRR ' 

IFCISTAT  ,EQ,  0) 

WRITEC6,9000)ISTAT 

call  secret 

C 

5010  iFLAGGaO 
FMT  a 27 
TOLaSO.ODO 
KOal 

SOJO  IPITbO 

STARTaSSTIMEd.KO) 

IF(IwLHDR  ,£Q,  I .AND,  IWLFLG  ,EQ,  0) 

IMLHDRbO 

ImLFLGbO 

5090  ST0PaSSTlME(2,K0) 

IFCIBVHOR  ,NE.  n 
IFdBVFLG  ,NE.  1) 

IF  (PRN0X3d,5)  ,0T.  0) 

IBVHORbO 

IBvFLGbO 

5050  IFdCLMDR  ,NE.  n 
IFCIOONE  ,NE,  12) 

IF(PRNDX3d#  1)  .CT,  0) 

ICLMORaO 

lOONEaO 

IRSFLGaO 


PRNDX3 

FRSTP 


Co  TO  5900 


'■'1  TO  5010 


GOTO  5090 


GOTO  5050 
GOTO  5050 
GOTO  5050 


GOTO  5070 
GOTO  SOTO 
GOTO  5070 
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IRMFLC«0 


5070  MAXBie 

CALL  SECCOKliOCMORV.III'.J) 

IP  (IIN(J)  ,GE,  0) 
call  P0U«P(START,START,5) 

CALL  P0UMP(ST0P,ST0P,5) 

CALL  POUMP(ISTAT,lSTAT,n 
CALL  P0UMP(MAX,MAX, n 

5071  CONTINUE 

IP(hTLC  .to.  1) 

CALL  AM0V(MEASC6R) ,3TTME,«) 
call  AH0V(MEAS{85),PRSPRC,«3 
RNN«MAX/6 
ISEbRNN 

STTMEB8TTHE4 (PRSPRC*ISE) 

MFLObI 

5075  IP(Max  .to,  0) 

c 

IPCISTAT  .EQ.  0) 

IPdSTAT  .EO.  n 
IPfISTAT  .EO.  2) 

IPCISTAT  .EO.  6) 

IPCISTAT  .EO.  7) 

IPdSTAT  .EO.  8) 

CALL  8EG( 'OKI iERRDRV.Hmh' ,2) 

5100  IPfMACT  .EO.  0) 

JPARaO 

LANBFR3TR(n-2 

KPETbR 

N3AMaMAX 

CALL  3ECC 'OKHANPRO.LLL' i2) 

*110  IP(3T0P  .LT.  SSTIMECP.KOn 
5120  KObKO^I 

IP(KO  .GT.  NOVRL) 

IPITbI 

5110  call  3CC( 'OKI iTMLOOP.PPP' ,2) 
call  3EC('OK1|PlOPHO.JJJ',2) 

IP(PRNDXJ(1,9)  ,E0.  03 
IPdBLHOR  .£0,1  .OR,  IWLKLO  ,E0.  n 
5115  CALL  ZER0(NTA6UF ( 1 3 , 50 3 
NTA0UF(l3«t9 
NTABUF(23bI1N(133 
NTABUF(13bIIN(V3 
NTABuF(«3b!IN(B3 
TM3151bS3TImE(j,lwLW3 
CALL  ST0MMSCTM3151, ITIM,SEC3 

NTABUF (83bITIM( I ) 

NTABUFC93bITIM(23 
INTNUMbSEC 
RFRACb8EC»1NTNUM 
IFRACbRFRAC*! 0000 
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GOTO  5071 


GOTO  5075 


goto  5750 

GO  TO  5130 
GO  TO  5100 
GO  TO  5120 
GO  TO  5030 
GO  TO  5050 
GO  TO  5030 

CO  TO  9999 
CO  TO  5110 


CO  TO  5130 
CO  TO  5760 


CO  TO  5870 
GOTO  5867 
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NTABOF ( 10)«1NTNUM 
NTABUF(JIJ«IFRAC 
TMSi53«SSTlME (2,LwLW) 

CALU  ST0HHS(TMS153,ITIM,SEC) 

NTABuF(l?)«ITIM(n 

NTABUF{n)«ITIM(23 

INTNUM«SEC 

RFR*C«8EC-INTnUM 

IFRAC»RFR*C* 1 0000 

NTABuF(l<J)ilNTNUM 

NTABUF(15)«IFRAC 

CALL  NTR*N( 1* , 1 , 50» NTABUF n 3 ) 

5136  CALL  NTRANUa,  IS,LST*T) 

IF(LSTAT  + l)5l37, 5136, 5139 

5137  LULUal2 

WRITE (6, 9050) LULU# L5 tat 

5139  CALL  ZER0(NTABUF(1),50) 

NTABuF(n«20 

call  AM0VChEAS(69),TmS153,4) 

CALL  8T0mM3(TMS153,ITIm,seC) 
NTABUF(12)«ITIM(1) 

MABUF(13)«ITIM(2) 
iNTNUMaSEC 
RFRACaSEC-INTNUM 
IFRACaRFRiC* 1 0000 

NT  ABuF  ( 1 4)  bIntnlim 

NTABuF(lS)aIFR*C 

CALL  MTRANC 12, 1 , 50# NTaBUF  ( 1 ) ) 

5860  CALL  NTRANna,  15,LSTaT) 

IF(LSTAT+1) 5861, 5860, 5862 

5861  LULUB12 
WRITE(6,9050)LULU,LSTAT 

5862  CALL  ZEHO(NTASUF(n»50) 

NTABUF(1)»2i 

NTA8UF(2)aIABS(IlN(3)  ) 

CALL  *MOV( I IN(4) , NTaBUF ( 3) , 4) 

CALL  NTRANC 12, 1 , 50, NT ABUF  ( 1 ) ) 

5863  CAt.;,  NTRAn(12,  15,lSTAT) 

If  (LST at* 1 )5864, 5663, 5865 

5864  LULUai2 
wRITE(6,9050)LULU,LSTAT 

5865  IwLHORal 

5867  call  SEG(  I Ok  U ii(VLPRO.  MMM  I , 2) 

_5870  IFdWLHDR  .£0.  1 .AnO.  IwLFLC  .£Q.  0) 


GOTO  9999 


GOTO  9999 


5140  IF(PRNOX3n,  l)  ,£Q.  o) 

5245  IFdCLHOR  .EQ.  1)  50T0  5607 


GOTO  9999 


GOTO  5140 
GOTO  5867 

GO  TO  5850 


* WRITE  CAL  PESIOO  HEaOER  TO  SCRATCH  TaPE 


call  ZEH0CNTABuF(1),50) 
NTABUF(l)al 


HhlPKUDUCUilUTY  UF 

oriqcn’al  page  is  poor 
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N^ABUF(2)bIIN(10) 

NTABuPCSJ^IINCO) 

NTABUF(^)BnN(B) 

TM8153a9STIME(l,L) 

CAUL  ST0MM8(TM8153,  ITIM» SEC) 
NTABuF(a)«ITlM(n 

NTABUF(9)»ITIM(2) 

’mTNUMbSEC 

i;  <ii»SEC-INTNUM 
1FRAC«RFRaC*10000 

NTABUF(10)«INTNUM 

NTABUF(H)»1FRAC 

TMS15J«SST1ME(2,L) 

CAUL  ST0HM8(TM515S.1T1m,8EC) 
NTABUF(t2)«ITIHn) 

NTABUF ( IS)»ITIM{2) 

INTNUMsSEC 
rfrachsec-intnum 
1FRACbRFRAC*10000 
NTABUF(ia)»INTNUM 
NTABUF(15)«IFRAC 
CALL  NTRANa2*l»50fNTABUF(l)) 
5i«6  CAUL  NTRANdZ#  15,USTAT) 

IF(U8TAT^n5U7,5lU6,5ia9 
5147  UOUUB12 

WRITE(6,9050)UUUJ»LSTAT 

5149  CAUL  ZEPO(NTABUF(n  ,50) 
NTAflUF(l)»2 

CAUL  AH0V(HEAS((,9),TMS153,4) 
CAUL  AM0V(MEAS(65),0EuT,4) 
5777  IF(TMS15J  ,GE,  8STIME(1,U)) 
TMSl5J«TMSl5i+0£UT 

5688  CAUL  ST0mmS(Tmsi5J, ITIMjSEC) 
NTABUF(12)bITIM(1) 
NTA6U'(n)»ITIMC2) 

INTNUHbSEC 

RFRAC»8EC-INTN(JM 

ifrac>rfrac*ioooo 

NTABUF(14)«1NTNUM 

NTABUF(15)»IFRAC 
CAUL  NTRANCl2,l,50,NTABUFCin 
5800  CAUL  NTRAN02, 15,USTaT) 

IF(U8TAT+1)5801,5800,5802 

5601  UUUUS12 
WRITE(8,9050)LUUU,LSTAT 

5602  CAUL  zER0(NTASUF(1),50) 
NTiBUF(l)-S 

NTABUF(2)b1ABS(1IN(3) ) 

CAUL  AM0V(IIN(4),NTA8URC3),4) 
CAUL  N7RAN( 12, 1 ,50, NTABUF ( 1 ) ) 

5751  CAUL  NTRANC 12, 15,USTAT) 

IF  {UST*T» 1 )5752, 5751 ,5606 

5752  UUUU«12 


goto  9999 


GOTO  5666 
GOTO  5777 


goto  9999 
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wRITE(6,9050)UUUU,USTA7 
5806  I00NEa3 

ICLHORai 

5607  caul  SEG( 'OKI  iRAMPRO.NNN' ,?) 

5650  IFflCLHOR  ,EQ.  01 
IFdRMPLG  ,EO. 

CALL  SEGt'0KllRAMPR0,NNN',2) 

565J  IFdRSFLG  ,EQ.  2) 

CALL  SEG( 'OKI iRESPRO.OOO' >2) 

C 

5150  IFCPRn0x3(1,7)  ,Eq,  0 .AmD,  PRnDx1C1,8)  ,E0,  0) 
5155  CALL  SEC( 'OKI iRESPRO.OOO' »2) 

C 

5200  IFfPRNOXJCl, J)  ,EQ,  0) 

IFCI&VHOR  ,GT,  6 ,OR.  ILVFLG  .GT.  0) 
call  ZER0(^Ta6UFC1)»50) 

NTABuF(1)«23 
NTABUF(2)»IIN( 10) 

NTA8uF(3)«IIN(9) 

NTABUF(«)«IIN(8) 

TM3i53»SSTIHE(1,LBIAS) 
call  ST0HMS(TMS153, ITIM,SEC) 

NTABuF(8)»ITIm(1) 

NTABuF(9)«ItIM(2) 

INTNUM«3EC 

RFRAC«8EC-1NTNUM 

ifrac»rfrac*ioooo, 

NTABUF (10)»INTNUM 
MTABUF(11)«IFRaC 
ThS153«S3TIME(2,LBIAS) 
call  3T0HM8(TM8153, ITIm,SEC) 

NTABUF(12)»ITIMn  ) 

NTABUF(13)»ITIM(2) 

INTNUMB8EC 

RFRACaSEC-iNTNUH 

IFRAC»RFRAC*10000, 

NTABUFn«)»INTNUM 

NT  ABuF  (IR.'r  :F9AC 

CALL  NTRAN(12,  i,50,NTABUF(D) 

5201  CALL  NTRAN(j2, iS.LSTAT) 
1FCL3TAT+i)5202.5201»5203 

5202  LUlUal2 

NR ITE ( 6/9050) LULU, LST AT 

5203  call  tERO(NTABuFcl),SO) 

NTABuF(1)»2 

CALL  *nOV(MEASC69)  ,T!K8153,«) 

CALL  AM0v(M£A3(85) ,OELT,u) 

520«  IF(Tm3153  .GE,  SST I ME ( 1 , lB I as ) ) 
TM8153»Tms153*0ElT 

5205  call  ST0mmS(Tm3i53, ITIm.sEC) 

NTABuF(12)»ITIM(1) 

NTABuF(13)»ITIM(2) 


6 

GOTO  9999 

GOTO  5150 
GOTO  5150 
GOTO  5651 

GOTO  5150 

Go  TO  5200 

CO  TO  5300 
GOTO  5250 


GOTO  9999 

GOTO  5205 
GOTO  520U 
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S206 

520T 


S20« 


520R 

S210 


5211 


5212 

5213 


52ia 

5250 

C 

5300 


5750 

57o0 
5900 
C 
C 
C 
C 

c * format  statements  * 

c •••*•**•*«****»****•**..*.**..•.**•*•.**•***•***•*.**••****••***.•* 

9000  FORMATUm  ,'**••*  ERROR  • WHILE  TRYING  TO  READ  TAPE  DESCRIPTOR 
1 file  a STATUS  OF', 15,'  WAS  RETURNED') 

9050  format  (1M0,'NTRAN  wRITE  ERROR  ON  UNIT', la, 

» 'STATUS  WORD  ■',!«) 

9150  format  (1H0,'NTRAN  READ  ERROR  ON  UNIT',ia, 

* 'STATUS  WORD  »',IU) 

C *•***«•*****••**•*****•********.**••••***«**.•**.*.**.*.***.*•...•. 

c 

c 


17139106  27-JU'.-76  PACE  7 

INTNUHaSEC 

RFRACbSEC-INTNUM 

IFRAC«RFRAC*10000. 

NTA0UF ( ia)«INTNUM 

NTABuF(15)«IFRAC 

CALL  NTRAN(12, 1,50.NTA8UF(1 J. 

CALL  NTRAN(12, 15,LSTAT) 

I F(LSTATy1 15207,5206, 5208 
LULUW12 

wRITE(6,9050)LULU,LSTAT 

>;DT0  9999 

call  ZER0(NTAauF(l),50) 

NTABUF(D«3 

NTABUF(2}cIABS(IIN(3n 

CALL  AMOVdlN(a)  ,NTA0UFC3)  ,9) 

CALL  NTRANC12,  1,50,NTA8UF(1)) 

CALL  NTRANti2, 15,LSTAT) 

IF(L8TAT^1)5210,5209,5211 

LULU>12 

wRITE(6,9050)LULU,LSTAT 

GOTO  9999 

CALL  ZER0(NTA8UF(1),S0) 

NTABUF(1)«13 

CALL  AM0V(IIN(26),NT4BUF(2),35) 

CALL  NTRAN(12,1,50,NTABUF(1)) 
call  NTRAn(12, 15,LSTAT) 

IF(LSTAT+1)5213, 5212, 5219 
LULU*12 

WRITE(6,9050)LULU,L8TAT 


GOTO 

9999 

IBVHORal 

CALL  SEC('0KltBlAPR0.KKK',2) 

IFCIPIT  ,CT.  0) 

call  AM0V(MEASC153),TMS153,«) 

CO 

TO 

5030 

start  a STOP  ♦ TMS153 

CO 

TO 

5060 

KO  a KO  ♦ 1 
IF(K0  ,LE,  NOVRL) 

CO 

TO 

5030 

IF  (IINc!7)  .EO.  0 .AND,  IlN(lB)  .EO.  0) 

CO 

TO 

9999 

CALL  SEC( 'OKI iQASUM.QQQ' ,2} 
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9999  CALL  SEGRET 
END 

ROUTINES  CALLEDi 
SE7EMT,  SETFIL,  NTRAN  , 
ZERO  I STOHM8,  lABS 

SWITCHES  a /ON,/SU#/CO 


SEG  » SECRET,  PDUMP  , AMOV 


MAIN. 

2901 

(011252)* 

ANDAT 

91 

(000266) 

CALRT 

3 

(000006) 

cmplet 

2 

(oooooa) 

DCAR6N 

26 

(000070) 

OCOATA 

1993 

(Oi?a62) 

ERROR 

20 

(000050) 

HI80AT 

6 

(000020) 

INPUT 

ise 

(OOOMTtt) 

INTNDX 

5 

(000012) 

LASFRH 

a 

(OOOOlO) 

PRNDX 

5U 

(oooisa) 

RECPTR 

1 

(000002) 

QAOAT 

5 

(000012) 

TIMES 

522 

(002024) 

TITLES 

32 

(000100) 

‘♦compiler  •• 

••••  CORE** 

PHASE 

USED  FREE 

DECLARATIVES 

03750  11516 

EXECUTABLES 

05433  11633 

ASSEMBLY 

02726  17457 
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COMMON  /ANDAT/  JPaR  , NS  AM , |.  AN,  M ACT , AN8  Y AT  ( IS ) # KRET , 

, ANCNTR(IS) , ANREC(IS) ,TANCTRf 18) , IRESFC, 

► IHLFG,  1RAMFC,LZNE, IPG 


common  t CALRT  t JINT, 


NOICAU, 


NTRCAL 


COMMON  / CMPLET  ( NCMPUT(2) 

COMMON  /OCARGN/  start,  STOP, 

1 PMT,  IDKRTP, 

2 IDBLE,  LU. 

3 MAX,  NAV, 

4 '8TAT 

COMMON  / DCOATA  / ,mEAS<5993) 

COMMON  / ERROR  / lERRtiO) 


COMMON  /HISOAT/  IRMFlC,  IRSFLC, 

► ICLMOR,  IMLMOR, 

COMMON  / INPUT  / IIN(102), 


TOU,  IFLACG, 

FRSTR{2),  FRSTP{2), 
isizc,  nth, 

INIT,  IDDC, 


ibvflg, 

lOONE, 

RIN(28) 


ihuflg, 

IBVMOR 


COMMON  / INTNOX  / U,  LBIAS,  CHEAT,  LSWU,  LWLW 


COMMON  / PRNDX  / PRN0Xl(2,9), 

I PRNDX3(2,9) 

COMMON  /QAOAT/  STTME,  MFUG 

COMMON  / TIMES  / BJD, 


PRN0X2(2,9) , 


SSTIME(2,6S) 


COMMON  / titles  / IT1TL02) 


equivalence 

equivalence 

EQUIVALENCE 

equivalence 

equivalence 


ClIN(in,IHTAB) 

CIIN(i2),I0ELOP) 

(IIN(13),IDELHR) 

(IINOU),IOELMN) 

(IIN(1S),10ELSC) 


DOUBLE  PRECISION  8STIME, 
DOUBLE  PRECISION  STOP, 


• TART 
TOL 


DOUBLE  PRECISION  LASPRC,  FRSPRC,  OELTME , TMS 1 53 , BELT 
DOUBLE  PRECISION  STTME 


INTEGER  PRNOXl, 

integer  FMT, 

INTEGER  ANSTAT 

Integer  anCntr.anrec 


PRN0X2, 

FRSTR, 


PRNOX3 

FRSTP 
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C 


BYTE  B0ATE(9) 


dimension  ITIMC2) 
dimension  NTABUF(50) 

DIMENSION  W(19} 

dimension  NTBSTO(900) 

DIMENSION  NTEMP(SO) 

dimension  RM0N(12) , ICHNLA(6) 

DATA  ICHNLA/  'All,  'A2', 

DATA  RMON/ 

* iJAN-t,  ifEB-',  tMAR-i, 

• 'AUC-S  'SEP-', 

IPAGE  ■ 0 

call  DATE(BDATE) 

I^  (IDELOP  ,EQ,  1) 

IP  (IHTAB  ,E0,  2) 

IPAGEbI 

call  AM0V(MEAS{69) ,FRSPRC,«) 
call  STOHmSCSTTME, ITIM,SCC) 
lFFH«lTlMn) 

IPrM«lTIM(2) 

RPFSbSEC 


' A3' , ' ' , ' AS' , ' A6'  / 

•APR-',  'MAY-',  'JUN-', 

'OCT-',  'NCV-',  'DEC-'/ 


GO  TO  5VS0 
CO  TO  BOOO 


13A88"IABS(IIn(3)  ) 

CALL  ST0MMS(FR8PRC, IT IM,SEC) 

NRITE(6,9roO)  IPAGE.BOATE,  IFFH,  IFPfI.RFFI, 
ITlMnj,ITIM(2),SEC, 
I3AB8,IIN(«),IIn(5),IIN(*),IIN(7), 
TANCTR(  17) ,TANCTR( lej , 
TAnCTR(16),TANCTR(I5), 
TANCTR(n,TANCTR(2), 
TANCTR(3),TANCTR(«), 
TANCTR(13),TANCTR(5), 

TANCTR(R) ,TANCTR{9), 


IPCIWLFG  ,EO. 
WRITE(6,9«50) 
5910  IFdRESFO  ,E0 
NRITE(6,9abO) 
»9iS  IFdRAMFG  ,E0 
WRITE(6,9i|(iS) 


TANCTW(lU),TANCTRdO), 

TANCTR{T),TANCTR(6), 

TANCTR(U),TANCTRd2) 

0) 

. 0) 

. 0} 


GOTO  S910 
GOTO  3915 
GOTO  5920 


C 

C 

C 

C 

c 

c 

c 


5920  MRITE(b,9«70) 

5950  call  ZER0(TANCTRd),36) 
IWLFCbO 
IRESFCaO 
STTMEiO, 

FR8PRC»0, 


GOTO  5930 


TAB  OUT  REQUIRED  FILES  AND  BUILD  NEW  HISTORICAL  FILE  TAPE  • 


INITIALIZATION  PmA8EiClEAR  COUNTERS  AnO  F|_agSJ  REWIND  TAPES  * 
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C ************ *****************t *****•**«•**••***•*••** *••**. 
S950  JKTABbO 
NOOUO  • 0 
INSERT*  0 

CALL  ZEH0(NTEMP(n»50) 

CALL  ZCRO(NTBSTO,ROO) 

IFdOELOP  ,EQ.  n CO  TO  5975 

call  NTRANf9,5) 

CALL  NTRAN(12,4) 

CALL  NTRAN(12,U) 

CALL  NTRANnJ,a) 

CALL  NTRAN(12,5) 

5975  call  NTRAN(10,5) 
call  K'TRAN(Hi5) 
bOOO  LIN  ■ 10 
LOUT*  U 
LSCRa  12 
C 
C 


C * READ  OLD  HISTORICAL  FILE  TAPE 

* 

bOlO  CALL  NTRAN(LIN,2,50>NTABUF) 

C 

c 

c 


C 

* CHECK  STATUS  OF  THE  UNIT 

C 

• 0 » OPERATION  complete 

c 

* -1  * LAST  TRANSMISSION  NOT 

COMPLETED 

C 

• -2  • END  OF  FILE  DETECTED 

c 

* -1  ■ DEVICE  ERROR 

c 

• -u  ■ transmission  aborted 

c 

• -5  ■ end  of  medium  detected 

c 

* IF  PREVIOUS  OPERATION  WAS  A 

READ 

OR  WRITE, 

AND 

NO 

ERROR 

c 

* OCCURRED,  LSTAT  wIlL  CONTAIN 

thE 

number  of 

1 

BIT 

WORDS 

c 

c 

* transferred. 

b020 

call  NTRAnCLIN, 15,L8TAT) 

* Hr  * * 

IF  (LSTAT  * 1)  b030,b020,b0b0 

b030 

IF  (LSTAT  ,EQ,  -2) 

CO 

TO 

b050 

WRlTE(b,9l50)  LIN, LSTAT 

CO 

TO 

R99R 

b050 

NOOLO  ■ 1 

IF  (INSERT  ,NE.  1 .AND,  IDELOP  . 

NE. 

1} 

CO 

TO 

7000 

boss 

CALL  NTRAN(LOuT,<I) 

call  NTRAN(LOUT,tt) 

CALL  NTRAN(LOUT,a) 

CALL  NTRAN(LIN,5) 

call  NTRAN(L0UT,5) 

IFdDELOP  ,EQ.  n 

CO 

TO 

b059 

CALL  NTRAN(LSCR,5) 

b059 

WRITE  (b.fSOO) 

CO 

TO 

9999 

bObO 

IF  (IIN(3)  ,CE,  0) 

• 

CO 

TO 

bObS 

call  PDUMP(NTABuF(l),NTABuF(un, 

1} 
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6068  IF  (NTABUFU)  ,NE,  I .AND,  NTABuP(t)  .NE,  J9  .AND, 

• NTABUFM)  .ME,  23)  <*0  TO  6700 

♦A**************************************** ****************** 

• * DATE  RECORD  TYPE  HAS  BEEN  READ 


* FILE  DELETION  CHECK 


6070  IF  (IDELOP  ,EQ,  0) 


GO  TO  6100 


IF(IIN{fl)  ,NE,  NTABUF(O)  .OR,  IIN(9)  ,NE.  NTABUF{3) 

* .OR.  IIN(IO)  ,NE,  NTABUF(2))  50  TO  6708 

IF  (NTABUF(8)  ,NE,  lOELHR  .OR,  NTABUF(9)  ,N£,  lOELMN  .OR, 

* NTABUF(IO)  ,NE.  I0EL8C)  5°  TO  6705 

♦A^AA******************************************************* 

* DELETE  the  FILE 


6075  call  NTRAN(LIN,2,50,NTABUF) 
6077  CALL  NTRAN(LIN, 15.LSTAT) 

IF  (L8TAT  ♦ 1)6080*6077,6085 
6080  IF  (LSTAT  .EQ.  -2) 

WRITE  (6,9150)  LIN,LSTAT 


6085  IF  (IIN(3y  .CE.  0) 

« 00 
CALL  POUMP(NTABUF(l),NTABUF(ai), 1) 

6090  IF  (NTABOFd)  ,NE,  1 .AND,  NTABUF(l)  ,NE,  19  .AND, 
• NTABUF(I)  ,NE,  23)  50 

JKTAB  ■ 0 


CO  TO  6050 
CO  TO  9999 
00  TO  6090 


GO  TO  6075 
00  TO  6070 


6100  IF 

CI1N{8) 

,LT. 

NTABuF(<D) 

IF 

(IIN(8) 

,eq. 

ntabuF(u)  .and 

it 

IF 

A 

(IIN(9) 

.EQ. 

NTABUF(5)  .and 

■ 

IF 

CIIN(3) 

.GE. 

0) 

CO  TO  6600 

11N(9) 

,LT.  NTABUF(3))  CO  TO  6600 
IIN( 10) 

,LT,  NTABUFC2))  CO  TO  6600 
CO  TO  6700 


CALL  PDUHP(NTABUF(2),NTABUF(«), 1) 

6605  IF  (INIERT  ,NE,  0) 

CALL  AM0V(NTA8UF(1),NTEMP(1),50) 


00  TO  6700 
CO  TO  6705 

CO  TO  7000 


WRITE  A record  to  ThE  NEw  hI8T0RICAL  TAPE 


6700  IF  (NTEMPd)  ,EO.  0) 

CALL  AM0V(NTEMP(1).NTABuF(1),S0) 
CALL  ZERO(NTEMP,50) 

6705  CALL  NTRAN(L0UT,i,50,NTA8UF(n) 


00  TO  6705 


perform  status  checks 


( f 
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6710  CALL  NTRAN(L0UT» 15»L8TAT) 

IPCL8TAT  f 1)6720,6710,6730 
6720  WRITE  (6,6050)  LOUT,LSTAT 


TEST  TO  SEE  IF  TAB  IS  REQUIRED 


KMTAB  ■ {(NTABUF(I)  - 1)  * 50)  ♦ 1 

• transfer  the  data  from  ntabuf  to  ntbsto 

6750  KMTAB  ■ ((NT*0UF(1)  - 19)«  50)  ♦ I 
6780  call  AMOV(NTABuF(1),NTB8TO(KMTAB),50) 

IP  (IIN{3)  ,GE,  O) 

« 

CALL  POUMP(NTABUF(n,NTABUF(Rl),  1) 

* update  the  record  counter  FOR  THE  TAB 
6790  JKTAB  • JKTAB  ♦ 50 

DOES  NTBSTO  CONTAIN  A COMPLETE  FILE  ? 


CALIBRATION  period  IS  BEING  PROCESSED 


6830 


IPAGE  ■ IPAGE 
KMLO  ■ 595 
KMHI  ■ 601 
KCHN  ■ 602 
LI  • 607 
MO  ■ NTBST0C3) 
WRITE  (6,6200) 


♦ 1 


GO  TO  9999 


6730 

IF  (IHTAB  ,NE, 

1) 

CO 

TO 

6010 

67ro 

IF  (NTABUF(l) 
KMTAB  ■ 1 

.NE, 

23) 

GO 

TO 

67RS 

67R5 

IF  (NT*BuF(1) 

GO 

TO 

6780 

.07, 

18} 

CO 

TO 

6750 

GO  TO  6780 


GO  TO  6790 


.EQ,  1 

, AnD , 

JKTAB 

,EO, 

600) 

CO 

TO 

6630 

,E0,19 

.AND, 

JKTAB 

.EC, 

100) 

CO 

TO 

6B50 

,EQ,23 

.and. 

JKTAB 

.EC, 

«50) 

GO 

TO 

6830 

CO 

TO 

6010 

IF  (NTBSTO(l)  ,EQ, 
WRITE  (6,9210) 
(6,9230) 


IPACE,BDATE,NTBST0(2) ,RMON(MO) ,NTBSTO(«) , 
(NTBSTO(MN), 

HN«6, 15) , ( NTBSTO ( NM ) ,NM»i 02, 1 06 ),( NTBSTO (MK ) , 
MK»62,65) 

23}  GO  TO  6B3R 


WRITE 
w(  1) 
w(  2) 
w{  3) 
w(  R) 


(NTBSTOC 165} 
(NTBST0(220) 
(NTBST0(265) 
(NTB8TO(205) 


,0001)  ♦ FL0*T(NTBSTU(16R)) 
,0001)  ♦ FL0AT(NTBST0{219J ) 
,0001)  ♦ PL0AT(NTBST0(26R) ) 
,0001)  ♦ FL0AT(NTBST0(20R) ) 
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w{  5) 

B 

(NTB8T0(365) 

* 

,0001) 

W(  6) 

8 

(NTB8T0(210) 

* 

,0001) 

W(  7) 

8 

(NT68T0(465) 

«r 

,0001) 

W(  8) 

8 

(NTBST0(215) 

* 

,0001) 

W(  9) 

8 

(NTB8T0(565) 

.0001) 

W(10) 

8 

(NTB8TO(305) 

* 

,0001) 

W(ll) 

8 

(NTB8T0(567) 

8 

.0001) 

W(12) 

8 

(NTB8T0(510) 

8 

.0001) 

W(13) 

8 

(NTB8T0(315) 

8 

.0001  ) 

W(14) 

8 

(NTB8TO(405) 

8 

.0001) 

W(15) 

8 

(NTB8T0(410) 

8 

,0001) 

W(16) 

8 

(NTB8T0(415) 

8 

.0001) 

W(17) 

8 

(NTBSTO(505) 

8 

.0001) 

W(18) 

8 

(NTBSTO(510) 

8 

.0001) 

W(19) 

8 

(NTB8T0(515) 

8 

.0001) 

WRITE 

( 

6,9240)  (M(NK), 

NK«1,19) 

♦ FL0AT(NTBST0(36«) ) 

♦ PUOAT(NTBSTO(209) ) 

♦ PLOAT(NTBSTO(46tt) ) 

♦ FU0AT(NTSST0(214)) 

♦ PL0AT(NTB8T0(SA4}) 

♦ rLOAT(NTBSTO(504n 
t PtOAT(NTBST0(5*6) ) 

♦ Pl.0AT(NTaST0(J09)) 

♦ FUOAr(NTB8TO(3U)  ) 

♦ PL0AT(NTB8T0(404)) 

♦ PUOAT(NTBSTO(aOf)) 

♦ PL0AT(NT63T0{414) ) 

♦ P|.OAT{NTBSTO(504)  ) 

♦ PLOAT(NTBSTO(509) ) 

♦ PL0AT(NTB8T0(5ia) ) 

00  TO  A900 


8634 


863S 


WRITE  (6,9220) 

DO  6635  IJ«1,5 
KMLO  ■ KMLO  ♦ 7 
KHMl  ■ KMHI  ♦ 7 
KCHN  • KCHN  ♦ 50 


U • LI  ♦ 50 
L7  • LI  ♦ 6 

ICHN  • NTB8T0CKCHN) 

WRITE  (6,9245) 

WRITE  (6,9250)  ( NTBSTO (KM) , KMbKMLO, WMHI ) 

WRITE  (6,9300)  ICHNLA ( ICMN ) , ( NTBSTO (LM) • LM*L 1 * L7 ) 


CONTINUE 


GO  TO 


6900 


wavelength  calibration  period  18  being  processed 


6850  IPAGE  ■ IPAGE  * 1 
MO  ■ NTBST0(3) 
WRITE  (6,9200) 


IPAGE,B0ATE,NTB8T0(2),RM0N(M0) ,NTB3T0(4) , 

(NTBSTO(MN) , 

MN«8, 15), (NTBSTO(NM) ,NM«102, ION) , (NTBSTO(MK) , 


> MKb62,65) 

WRITE  (6,9305) 

WCALl  ■ (NTB8T0(153)  * ,0001)  ♦ FLOAT (NTB8TO( 152) ) 
WCAL2  ■ (NTB8T0U55)  * ,0001)  ♦ FLOAT  (NTBSTO(  154) ) 
WRITE  (6,9310)  WCALl, WCAL2,NTB8T0(156) 


6900  JKTAB  ■ 0 

CALL  ZERO(NTBSTO(l),900) 


CO  TO  6010 


File  inception  routine 


7000  LU  ■ 12 


'V 


\ f 


JSC-10140 
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FORTRAN  VOORA  t7l35l5U  27-JUL-74  PACE  7 

LO  «'  n 
INSERT  « I 
JKTAB  ■ 0 

7010  CALL  NTRAN(LU,2,50»NTABUF) 

7020  CALL  NTRAN(LU> 1S,LSTAT) 

IF  (LSTAT  ♦ 1)  7030|7020,7060 

7050  IF  (LSTAT  ,E0,  *2)  CO  TO  7050 

WRITE  (6, 0150)  LU»LSTAT 

CO  TO  9999 

7050  JKTAB  ■ 0 

IF  (NOOLO  ,E0.  1)  CO  TO  6055 

GO  TO  6700 

C ********* *******•*•*•*******•*******••**«•*•«*****•****••* ••••**.** 

C * UPDATE  THE  RECORD  STORAGE  COUNTER  FOR  THE  TAB  * 

C ****************************************«***.***•*•********«******• 

7060  JKTAB  ■ JKTAB  * 50 

7062  IF  (NlABUFn)  ,NE,  25)  CO  TO  706R 

KHTAB  ■ 1 

CO  TO  7067 

706U  IF  CNTABUF(l)  ,CT,  IS)  CO  TO  7065 

KMTAB  • (CNTABuF(I)  • 1)  * 50)  ♦ 1 

CO  TO  7067 

7065  KMTAB  ■ ((NTABUFO)  - 19)*  50)  ♦ I 

C ******************************************************************* 

C * TRANSFER  THE  DATA  FROM  NTABUF  TO  NTBSTO  * 

C ******************************************************************* 

7067  CALL  AMOV(NTABUF(1),NTB8TO(KMTAB),50) 

IF  (IIN(5)  ,CE,  0) 

* CO  TO  7066 

CALL  PDUMP ( NTBSTO (1), NTBSTO (900),  1) 

C ******************************************************************* 

C * CHECK  TO  SEE  IF  THE  CALIBRATION  FILE  PERIOO  HAS  ENDED  * 

C **********************«...*•*********•***************•**••*****•*** 

7061  IF  (JKTAB  ,EQ,  bOO  .AND,  NTBSTO(l)  ,EO.  1)  CO  TO  7070 

^ IF  (JKTAB  ,EQ,  «50  ^AnD,  NT8«T0(1)  ,£Q,  25)  GO  TO  7070 

C * CHECK  TO  SEE  IF  WAVELENGTH  CALIBRATION  PERIOD  FILE  HAS  ENDED  * 

IF  (JKTAB  ,EQ,  200  .AND,  NTBSTO(l)  ,EQ,  19)  CO  TO  7060 

CO  TO  7010 

C ***********************•****•*****••*******•*••*.*****•*.*******•** 

C * WRITE  file  TO  NEW  HISTORICAL  TAPE  * 

C A****************************************************************** 

7070  DO  7077  KTBCAl»1,12 

IF  (NTBSTO(l)  ,EQ,  25  ,AN0,  KTBCAL  .CT,  9)  CO  TO  7025 

IR  • ({KTBCAL  - l)*50)  ♦ I 

IF  (NTBSTO(l)  .EQ,  25  .AND,  KTBCAL  ,CT,  5)  IR«IR*R50 
CALL  NTRAN(LO,1,50»NTBSTO(IR)) 

70741  CALL  NTRAN(L0,  15, LSTAT) 

IF(LSTATaI)  7076,70744,7077 
7076  WRITE  (6,9050)  LO, LSTAT 

CO  TO  9999 

707T  CONTINUE 

C *****•******•****•**************•****.*,.*•*,****..*.,*,*.,****,*,, 

c * calibration  PERIOD  IS  BEING  PROCESSED  • 

C *******************************  .,.*********.**.**********.*.***.*,. 
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7021  IFASE  • IRASE  * 1 
KMLO  ■ 59* 

KHHI  ■ 601 
KCHN  ■ 602 
LI  • 607 

WRITE^(6!9200)  ip6GE»BC)ATC*NTB8T0(2) »RM0N(M0) »NTBST0(«)  » 

* MN»8*15) » (NTBSTO(NM) ,NM«l02i 106) , (NTB8T0(MK) I 

• MK«62,65) 

IF  (NTB3T0(l)  .EQ,  25) 
mRXTE  (6,9210) 


WRITE  (6,9210) 

W(  1)  • (NTBST0(165) 
M(  2)  ■ (NTB8TO(220) 
W(  1)  ■ (NTB8T0(26S) 
M(  tt)  • (NTB8T0(20^) 
w(  5)  ■ (NTB8T0(3fc5) 
W(  6)  ■ (NTBSTO(210) 
W(  7)  • (NTBST0(a65) 
W(  8)  • (NTBST0(215) 
W(  9)  • (NTB8T0(565) 
W(10)  ■ (NTB8TO(305) 
W(ll)  ■ (NTB8T0(567) 
W(12)  ■ (NTBST0(510) 
well)  • (NTB8T0C315) 
W(l«)  ■ (NTB8TO(«05) 
W(15)  ■ (NTBST0(«10) 
W(16)  ■ (NTBST0(«15) 
W(17)  • (NTB8T0(505) 
m(16)  ■ (NTBSTOdlO) 
W(19)  ■ (NTB8T0(515) 
IF  (IIN(l)  ,5E,  0) 


.0001)  ♦ FL0AT(NTBST0(164)) 
,0001)  ♦ FU0AT(NTBST0(219) ) 
,0001)  ♦ FL0AT(NTB8T0(26«) ) 
,0001)  ♦ FL0AT(NTBST0(20«) ) 
,0001)  ♦ FL0AT(NTB8T0(564) ) 
.0001)  ♦ FLOAT(NTBSTO(209) ) 
.0001)  ♦ FL0AT(NTB3T0(464)) 
,0001)  ♦ FL0AT(NTB8T0(21«)) 
,0001)  ♦ float (NTB8T0(564) ) 
,0001)  ♦ FLOAT(NTB8TO(304)) 
,0001)  ♦ FL0AT(NTB8T0(566)) 
.0001)  ♦ FLOAT(NTB8TO(309)) 
.0001)  ♦ FL0AT(NTB8T0(114)) 
.0001)  ♦ FLOAT(NTB8TO(404)) 
,0001)  ♦ FlOAT(NTB3TO(409)) 
,0001)  ♦ FL0AT(NT88T0(414) ) 
,0001)  ♦ FLOAT(NTB3TO(504)) 
,0001)  ♦ FL0AT(NTBST0(509)) 
,0001)  ♦ FLOAT (NTB8T0(514) ) 


CALL  POUMP  (W(1),W(19),4) 

7075  WPITI  (6.9240)  (W(NK) ,NK8l, 19) 
CALL  ZER0(NTBST0( 1) ,900) 
JKTAB«0 


CO  TO  7075 


GO  TO  7010 


707f  WRITE  (6,9220) 

00  7078  1J»1,5 
KMLO  ■ KMLO  ♦ 7 
KHHI  ■ KMhI  ♦ 7 
KCHN  a KCHN  6 50 
LI  • LI  ♦ 50 
L7  a LI  ♦ 9 

ICMN  a NTBSTO(KCHN) 

WRITE  (6,9245) 

WRITE  (6.9250)  'NT88T0(KM),KM-KHL0,KMH  ) 

WRITE  (6.9100)  ICHNLA(ICMN),(NTB8T0(LM),LMaLl.L7) 

7078  CONTINUE 


CALL  2ER0(N7B3TO(l).900) 
JKTA8aO 


GO  TO  7010 


nmODUClBILITY  OF  Tl’- 
mrr,l>N^A.L  PAGE  K POOR 
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C ***•**********.*..********.**.»*,,.*** 

c • WRITE  File  to  new  historical  tare 

7060  00  7069  KTBwVL"U<t 

IR  • ((KTBWVL  - l)*50)  ♦ 1 
CALL  I^TRANILO.  l,50,NTB870(lRn 
706«  call  NTRAN(L0, 15.LSTAT) 

If(LSTAT+n  7066, 706a,  7069 
7066  WRITE  (6,9050)  LO,LSTAT 


7069  CONTINUE 


GO  TO  9999 


c * wavelength  calibration  PERIOD  IS  BEING  RROCESSEO 


7650  IRACE  ■ IRAGE  ♦ 1 
MO  « NTBSTO(J) 

WRITE  (6»9200)  IPaCE, BOATE , NTB8T0(2) , RMON(MO) , NTBSTO(a) , 

* (NT8ST0(MN), 

* mn«6, 15), (NTBSTO(NM),nm»jo2, 106) , (NTBSTO(MK) , 

* MK«62,65) 

WRITE  (6,9305) 

WCALI  » (NTB8T0(  153)  * ,0001  ) ♦ FLOAT ( NT88T0 v 1 52) ) 

NCAL2  ■ (NTB8TO(15S)  * ,0001)  ♦ FL0AT(NTBST0M5a)l 
write  (6,9310)  wCAL I , wCAL2, NTBSTO( 156) 


call  ZER0(NTBST0(1),900) 

JKTABsO 


CO  TO  7010 


TAB  old  historical  FilE  TAPE  qhlT 

8000  LU  « 10 
JKTABbO 

CALL  NTRAN(lU,5) 

6010  call  NTRAN(LU,2,50,NTABuF) 

6020  CA(,i,  NTRAn((.u,  15,lSTAT) 

IF  (LSTAT  ♦ n 6030»6020»6060 
6030  IF  (LSTAT  ,EQ.  -2) 

WRITE  (6,9150)  LU, LSTAT 


CO  TO  6050 


6050  CALL  NTRAN(LU,5) 

WRITE  (6,9500) 

CALL  SECRET 

C *••******.***.»..**♦.*****,,*, 

C * UPDATE  the  RECORD  STORAGE 


CO  TO  9999 


COUNTER  FOR  TnE  TAB 


6060  JKTAB  » JKTAB  ♦ SO 
NNTAB  s JKTAB  « U9 

call  *mOV(NTABuF( 1 ),NTB5TO(NNTAB),50) 

* CHECK  TO  SEE  IF  THE  CALIBRATION  FILE  PERIOD  HAS  ENDED 


* 
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10 


GO  TO  0070 
GO  TO  0070 


(JKT*B  ,E0,  600  ,*NO,  HTBSTOd)  tEO,  1) 
ir  (JKT*B  .EO.  «50  ,ANO,  NTBSTO(l)  ,EQ.  23) 

*******************^  wavelength  calibration  period  file  has  ended 
IF  (JKTAB  ,E0,  200  .and,  NTBSTO(J)  ,EQ.  I’) 


GO  TO  B05O 
CO  TO  SOlO 


• CALIBRATION  PERIOD  IS  BEING  PROCESSED 

* TAB  the  CALIBRATION  PERIOD 


6070 


l******««*A**** 

IPAGE  ■ IPAGE 
KHLO  a ittS 
KHHI  a 151 
KCHN  a 152 
LI  a 157 
MO  a NTBST0(3) 
write  (6,9200) 


♦ 1 


IF  (NTBSTO(l)  .EQ.  23) 
WRITE  (6,9210) 

WRITE  (6,9230) 

w(  1)  a (nTBST0(16S)  * 

.0001) 

♦ 

W(  2) 

B 

(nTBST0(220) 

* 

.0001) 

♦ 

w(  3) 

a 

(NTB8T0(265) 

* 

.0001) 

♦ 

w(  «) 

V 

(NTB8T0(20S) 

* 

.0001) 

> 

w(  5) 

8 

(NTB8T0(565) 

♦ 

.0001) 

♦ 

w(  6) 

8 

(NTBSTO(210) 

* 

.0001) 

♦ 

w(  7) 

8 

(NTB8T0(U65) 

* 

.0001) 

4* 

W(  6) 

8 

(NTBST0(215) 

* 

.GOOD 

♦ 

w(  9) 

8 

(NTB8T0(565) 

* 

.0001) 

♦ 

w(10) 

8 

(NTBSTO(305) 

* 

,0001) 

♦ 

w(ll) 

8 

(NTa8T0(567) 

• 

,0001) 

♦ 

w(12) 

8 

(NTBSTO(310) 

* 

.0001) 

♦ 

w(l3) 

8 

(NTBST0(3l5) 

* 

.0001) 

♦ 

w(U) 

8 

(NTBSTO(a05) 

* 

,0001) 

♦ 

w(l5) 

6 

(NTBSTO(ttlO) 

* 

.0001  ) 

♦ 

w(16) 

8 

(NTBST0(ai5) 

* 

.0001 ) 

♦ 

w(17) 

8 

(nTB8TO(505) 

.0001  ) 

♦ 

w(16) 

8 

(NTBST0(510) 

* 

,0001  ) 

♦ 

w(  19) 

8 

(NTB6T0(515) 

* 

.0001) 

♦ 

WRITE 

(6,92a0)  (W(NK), 

NKa) , 19) 

call  ZER0(NTBST0(1), 
JKTABaO 

900) 

IP  age,  BDATE,  NTBSTO  (2)  >R^'0N  (MO).  NTBST0(9)  . 
INTBSTO(MN) , 

nNbO,  15),  (NTBSTO(NM)  ,NMr.J02, 106) , (NTBSTO(MK)  , 

MKa62,65)  ^ 

CO  TO  6060 


FL0AT(NTSSTD(16«)) 
Fe0AT(NTB8T0(21'>)) 
FL0AT(NTBST0(269) ) 
FlOAT(NTBSTO(209) ) 
FL0AT(NTBST0(36U) ) 
F|.OAT(NTBSTO(209)  ) 
FLOAT (NTBST0(tt6tt) ) 
FL0AT(NTBST0(21«)) 
FL0AT(NTBST0(560) ) 

FLOAT (NT8ST0(30«) ) 
Fl0AT(NTBST0(566) ) 
Float (ntbsto(309) ) 
FLOAT (NTBST0(51«) ) 
FLOAT(NTBSTO(aOa) ) 
float (NTBSTO(a09) ) 
FLOAT (NTBSTO(«l«) ) 
FLOAT (NTB3T0(50«)  ) 
FLOAT (NTBSTO(509)  ) 
FL0AT(NTB5T0(51U)) 


GO  TO  6010 


6060  WRITE  (6,9220) 

00  6635  1J«1,5 
KMLO  a KMLO  ♦ 7 
KMMI  a KMhI  ♦ 7 
KCHN  a kCHN  ^ 50 
LI  a LI  ♦ 50 
L7  a LI  ♦ 6 

ICHN  a NTBSTO(KCHN) 
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WRITE  {6,«2UI) 

WRITE  (6,9250)  (NTbSTO (KM) , KMtKMUO, KMHI  ) 

WRITE  (6,9J00)  ICHNUA(ICMN),  (NTBST0aM),UM«Ll,U7) 

8635  CONTINUE 

CALL  ZERO(NTBSTO(1),900) 

JKTABaO 

Co  TO  6010 

«• 

C 

c •*•*******«**********•*•***•*•*******•****••***,•*****•****«.•** 

C * WAVEutNCTH  calibration  PERIOD  IS  BEING  PROCESSED 

C • Tab  the  wavelength  calibration  period 

c ••*•***********•*•****•>*********.***•***••***.•««**•*•*•*»*«..** 

6650  IPAGE  s IPAGE  ♦ 1 
MO  ■ NTBST0(3) 

WRITE  (6,9200)  I P ACE , BO ATE , NTBSTO ( 2 ) , Rmon ( MO) , NTBSTO ( 4 ) , 

* (NTBSTO(MN), 

* HN«6, 15) , (NTBSTO(NM) ,NM»io2, 106) , (NTBSTO(mk), 

* MK»62,65) 

WRITE  (6,9305) 

wCALl  ■ (NTBST0(153)  * .0001)  ♦ FLOAT (NT8ST0( 152) ) 
wCAL2  • (NTBST0(155)  * ,0001)  ♦ FLOAT (NTB3T0(  154) ) 

WRITE  (6,9310)  WC AL 1 , WC AL2 , NTBSTO ( 1 56 ) 

CALL  ZER0(NTBST0(  1 ) ,900) 

JKTABaO 


C 

C 

c 

c 

c 

c 

c 


CO  TO  6010 


format  statements  I 


9050  format 
* 

9150  ^OWMAT 
9200  format 


(1ho,'ntran  writ?  Error  on  unit',i4, 

' STATUS  WORD  a ' , 14) 

(IHO.'NTRAN  READ  ERROR  ON  UNIT',I4, 

•STATUS  WORD  ai,l4) 

(1H1,T50.'S  191M  PREPROCESSOR  T» 
,'APE  duality  TES  T' ,T122, 
•PAGE' , 14,/, 

T107,'RUN  DATEl  •,9Al,//, 

T42,'«  ****H18TCRIC'al  FIL' 
, 'E  * * * * *1 ,//, 

T33, 'START  OATEi  ' , I2, ' , A4, 12, T77, i STArt ' 
,'  TiMEl  ' , 12, ' I ' , (2, I I ' , 12, • , ' , I4,/, 
T77,'ST0P  TIME!  • , 12,  ' i < , 12,  • i < , 12,  i . > , 14, 
//,T33, 'MISSION  ' , I3,T47, 'FLICHT  ' , I 5 , T6 1 , ' S I ' 
,'TE  ' , I3,T75, 'line  ',I3,T89, 'RUN  ',13,/ 
,T57, 'FIRST  FRAME  TJmei  ' , 12, ' I ' , 12, ' I ' , 12, 


9210  format 
9220  format 
9230  format 


T57,  I-.---.--, .... 

(IH  ,T61, '***CALIBRaT:0N  period***',//) 

(IH  , T59, I AS  VOLTAGE  HISTOGRAM**,!,//) 

(IH  ,T25,'PARAMETERi,T50,'V*Lut',T84, 'PARAMETER' 
,T109, 'VALUE'/, 

T18,  ' ',T45, 


s 
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■'  ,T104, 


format 


' , r I 

(IM  ,T16,'AVG.  W/L  RAMP  PEAK  VOLT' ,T45»F8t4» 

' VOLTS', 

TTT.'SwL  cal  LAMpi ,t102,F10,4,  ' VOLTS', 


92a5  Format 

( IH 

9250  format 

« 

* 

OH 

* 

« 

9300  format 

(IH 

A 

9105  format 

( IH 

9110  format 

(IH 

• 

'CH 

9400  format 

C JHl 

' VOLTS', 

T77,'SwL  cal  LAMpi ,t102,F10.4,  ' vOLI 

/,Tje,'w/L  ramp  peak  STO,  OEV, ' ,T45,F8,4, 

' VOLTS', 

T77, 'RESPONSIVITV ,T93, ' (A2) ' , 
T102,F10.U,'  V/W-CM2-STR-M1CR ' , 
/,T18,IAVG,  W/L  RAMP  MIN.  VOL T ' , T 45 , F 8 . 4 , 

' VOLTS', 

T77,  'NOISE  ' , T<J5,  ' ( A2)  ' , 

T102,F10,4,  ' VOLTS',/, 

Tl8,'w/L  RAMP  MIN,  STO,  DE V , ' , T45 , F 8 , 4 , 

' VOLTS', 

T77,'NESR'  ,T93,'(A2)', 

T102,F10.4,'  E-4  W/CM2-STR-MICR ' , /, 
T18,'AVG.  linearity  of  SC  AN ' , T 45 , FB , 4 , 

• RMS  OEV  , 

T77, 'RESPONSIVITV' ,T95,'(A3)', 
Tl02,Fl0.4,'  V/M-CM2-STR-MICR ' , 
/,Ti8,'AvG,  scan  Interval ', T45,F8, 4, 

' SECONDS', 

T77, 'NOISE ' ,T93, ' ( A3) ' , 

TJ02,F10,4,  ' VOLTS',/, 

T77,'NESR'  ,T93,'(A3)', 

Tl02,Fl0,4,'  E-4  R/CM2-STR-MICH ' , /, 

T77, 'RESPONSIVITV ' , T93 , ' ( A5 ) * , 
Tl02,Fl0,4,'  V/W-CM2-STR-MICR',/, 

T77, 'NOISE' ,T93, ' (A5) ', 

TJ02,F10,4,  ' VOLTS',/, 

T77,'NESR'  ,T93,'(A5)', 

T102»Fio,4,'  e-4  M/CM2-STR-MICR ' , /, 

T77, 'RESPONSIVITV ,T93,  ' (A6)  ' , 
T102,F10.4,'  v/w-CM2-STR-''ICR',/, 

T77,  'NOISE ' , T95, ' ( Ap) ' , 

Tl02,Fl0,4,  ' VOLTS',/, 

T77,'NESR'  ,TR3, ' (A6)  ' , 

T102,F10,4,'  E-4  W/CM2-STR-MICR ' , //) 


,TSF,  , riuo, ''U"-'; 

,T55, 'CHANNEL  VALUE',T52,I5,T61,I3,T70.I3, 
T79, n,TeS, I3.T97, Ii,T 106, 13,/, 
133,1.......  .--.-i,t52, T6l, 

TfO,  '..-i,T79, I...' ,t88, ,TR7, 


T53,  »T5, 

T70, • ,T79, I...I ,t8i 
T106, '---') 

,T4l,  U2, T51,  14, TbO,  14, 
T96,  I4,n05, 14,//) 

, T61 , ' •**HA VELENGTM  CaL 

, T33, ' Channel  A4  pCm  vai 

5X,'ST0,  DEV,  ■ ',F6,4, 


7X, 'DATA  FROM  I , 


•SlRlH  PREPROCI 
• APE  quality  TI 
'PAGE • , 14, /, 

T107, 'RUN  DATEl  ' ,9A1,//, 


S 0 R T ' 
T',T122, 
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9aso  format 
9460  format 
9a6S  format 
*TED  - ZERO 
9«70  format 
9500  format 


T52, 

,T11, 

T67, 

//.TJJ, 

/•TSjJ 

T26, 

779, 

T21, 


T99, 

T2J, 

T7«, 

i21* 

T7ai 
721, 
779, 
721, 
779, 
721, 
779, 
721, 
779, 
721, 
779, 
721, 
779, 
721, 
779, 
75m, 
(IH  ,T21, 
(IH  ,721, 
(IH  ,721, 
GOOD  SCANS') 

(IH  ,721, 
(IHl) 


••••QA  ZUMMARY***',// 
•FIRST  frame  CMEi ' , 12, ' I ' , 12, ' I ' ,F7,9, 

• LAST  frame  TIME|',X2,'|',I2,'M,F7,9, 

• MISSION  •, I), T97, •FLIGHT  • , 1 3, T9 1 , • 8 1 • 
•TE  •,I3,T7i,'LINE  •,I3,T89,'RUN  ',13,/ 

•••ararameter  anomaly  totals***' ,//, 
•PARAMETER', T96, 'TOTAL  DETECTED', 
•PARAMETER' ,T99, 'TOTAL  DETECTED',/, 

',796, 



',///, 

•SCAN  LINEARITY' ,799, F7.0, 

•SCAN  REJECTED' ,T102,F7.0,/, 

•Sync  PULSE', T99,F7,0, 

•SWL  CAL  LAMP' ,T102,F7,0,/, 

•ZERO  VOLTS  REF,',T99,F7,0, 

•POWER  SUPPLY  CIAG.',T102,F7,0,/, 
•PACKAGE  TEMP, • ,T99,F7.0, 

•DATA  PALLET  TEMP,',T102,F7.0,/, 

•LWL  DETECTOR  TEMP. • ,T99,F7,0, 

•SPEC,  pallet  TEMP,',T102,F7,0,/, 
•DICHROIC  temp, • ,T99,F7.0, 

•HEATED  cal  temp, ',T102,F7,0,/, 

•REF,  SOURCE  TEMP, ' ,T99,F7,0, 

•ambient  cal  temp, • ,T102,F7,0,/, 

•INT,  SPHERE  TEMP, • ,T99,F7,0, 

•MIRROR  TEMP,',T102,F7,0,/, 

•RAO  CAL  wheel  P08,',T9'»,F7,0, 

•FOV  FLAG', T102,F7,0, /////, 
•***MI8T0RICAL  file  FL ACS*** • , // ) 

•1.  wavelength  cal  ABORTED') 

•2,  RESPONSIVITY  ABORTED') 

•3,  wavelength  ramp  calculations  ABOR 

•NO  CALCULATIONS  ABORTED') 


c ************ 

9999  CALL  SECRET 
END 


ROUTINES  CALLED! 

DATE  , AhoV  , STOHMS,  lABS 

Float  , secret  . 


SWITCHES  ■ /0N,/8U,/C0 


BLOCK 

length 

main. 

8193 

(037636)* 

ANDAT 

R1 

(000266) 

CALRT 

3 

(000006) 

cmplet 

2 

(000009) 

DCARCN 

28 

(000070) 

OCOATA 

3993 

(017962) 

ERROR 

20 

(000050) 

HISOAT 

8 

(000020) 

INPUT 

158 

(000979) 

INTNDX 

5 

(000012) 

PRNOX 

59 

(000159) 

OAOAT 

5 

(000012) 

times 

522 

(001029) 

TITLES 

32 

(000100) 

, zero  , NTUAN  , POUMP 


Rti'R0DUcmiL’i|Y 

OHIGINAL  PAGE  IS  PCXJK 


2 . 10-70 


JSC-10140 


FORTRAN  VOO«A  l7lJ5lSa  27-JUU-76  PACE 

**C0KPItER  CORE** 

PHASE  USED  FREE 

declaratives  03750  13516 
EXECUTABLES  05805  11461 
ASSEMBLY  03628  16355 


JSC-10140 


« 

SEOD 

SRUN  rORTRN 
FORTRAN  V004A 

#DKl|RAMPR0,0ej,LPM0Kl|RAMPR0,FTN/0N/8U/C0|R9 


2.10-72 


w-W««MW‘1>JWUWM^ 


JSC-lOlAO 


FORTRAN  VOOOA 


17U8I57  27-JUL-74  PACE  1 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


* LOAD  module 

1 

RAMPRO 

**** 

* 

* 

* 

* 

* 

* common  statements 

• 

COMMON 

/ AilCHNL 

/ 

IAit(685) 

COMMON 

/ANDAT/  JPAR,NSAM,LAN 

,MACT,ANSTAT(15)  ,KRET, 

* 

ANCNTR(  15)  , ANRECC15)  ,TANCTRn«)  » 

IRE8FG, 

* 

Hlfg,  IRAMFG 

,LZNE, IPG 

common 

/ CMPLET 

/ 

NCMPLT(2) 

COMMON 

/ OCARGN 

/ 

START 

,STOP 

»T0L 

# 

1 

lELAGG 

,FMT 

, lOKRTP 

# 

i 

FRSTRC2) 

,FRSTP(2) 

,IDBLE 

1 

i 

LU 

fISiZE 

.nth 

1 

u 

MAX 

,NAV 

,INIT 

$ 

5 

lODC 

, ISTAT 

common 

/ DCOATA 

/ 

MEAS(39R3) 

COMMON 

/hisoat/ 

IRMFLG» 

irsflg»  ibvflc, 

IWLFLG. 

* 

iclhdr, 

iwlmdr,  ioone, 

IBVHDR 

common 

/ INPUT 

/ 

IIN(102) 

,RINC28) 

common 

/ INTNDX 

t 

L»  LBIAS, 

lheat,  lswl>  lnlm 

common 

/ prnDx 

/ 

PRNOXI (2# 

9)  ,PRn0x2(2,9) 

,PRn0x3(2,9) 

COMMON 

/ SAVE 

/ 

ibgnsc 

,nmvalo 

. lAHEAD 

9 

1 

IPRVOK 

# l5*ypT 

> lAUNOX 

9 

2 

TMCURR 

, TMFRCR 

.TMFRST 

9 

3 

sumtm 

,rmstot 

. IA6SET 

9 

u 

RMNSUM 

, RMXSUM 

,RXSMSO 

9 

5 

RNSMSQ 

common 

/ times 

/ 

bjd 

,SSTIME(2,65) 

common 

/ titles 

/ 

ITITL(52) 

* TYPE  statements 

* 

double 

PRECISION 

AVSCTm 

double 

PRECISION 

SSTIME 

, start 

.STOP 

double 

PRECISION 

FRSPRC 

»LASPRC 

.TMCURR 

double 

PRECISION 

tmfrcr 

,TMFR3T 

.SUMTM 

double 

PRECISION 

TMES69 

»TMS153 

DOUBLE 

PRECISION 

USCNTM 

,TOL 

INTEGER 

PRNOXI 

,PRNDX2 

,PRNDXJ 

integer 

FMT 

,FRSTR 

.FRSTP 

integer 

ANSTAT 

INTEGER 

ANCNTR, ANHEC 

* DIMENSION  statements 

* 

* H * * 

DIMENSION  I0EVIA(685) 
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C 

C 

C 


C 

C 

C 


DIMENSION  NCMPLT(2) 
DIMENSION  NTABUFCSO) 


* EQUIVALENCE  STATEMENTS 


equivalence 

(ICSCN, 

IIN(20) ) 

equivalence 

(I'.TOL, 

IIN(21) ) 

EQUIVALENCE 

(IV  VNC, 

IIN(22) ) 

EQUIVALENCE 

(IE  40, 

IIN(23)) 

equivalence 

(ISMIN, 

IIN(24)} 

equivalence 

(I5MAX, 

IIN(25)) 

IP  (IIN(l)  ,GE.  0) 


GO  TO  4000 


MRITE  (6,9000) 
mRITE  (6,9200)  L 
4000  NX  ■ 0 

CALL  AM0V(MEAS(69),TMES69,4) 
CALL  AM0V(MEAS(153)»TMS153,4) 
IP  (IIN(3)  ,GE,  0) 

* 

WRITE  (6,9340)  TMtS69 
WRITE  (6,9350)  TM5153 


GO  TO  4003 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


* Check  for 

first  time  Through 

********* 

r * * * * 
« 

r * * * * 

IP  (NCMPLT(I) 

,EQ,  0) 

CO  TO  40)0 

* 

CHECK  FOR  NEW  CAL  PERIOD 

* 

r * * * * 

* * * 4 

IP 

(NCMPLT(I)  ,NE.  L) 

CO 

TO 

4005 

ip 

(NCMPLT(2)  ,ne,  n 

CO 

TO 

4020 

IP 

(IIN(S)  ,CE,  0) 

* 

CO 

TO 

4004 

ISNO  • 4000 
WHITE  (6,9050)  ISNO 
WRITE  (6,9900) 

4004  CALL  SEG(iDK1iQAEXEC.GGG',0,0) 

400t  IP  (NCMPLT(2)  ,E0,  1)  (*0  TO  4010 


KRET  ■ 2 


JPAR  ■ 20 
NSAM  « NCMPLT(I) 

LAN  ■ 0 

CALL  sEG(iOK1|ANPrO.LLL',2) 

IF(NMVAL0  ,NE,  0)  TO  4600 

AVGMX  ■ 0, 

SUPK  ■ 0, 

AVGMN  ■ 0, 

SOMIn  • 0, 

AVGLIN  ■ 0, 
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GO  TO  U603 


either  initial  Pass  or  a nch  cal  period 


aolo  lAUNOX  a 0 
IA6SET  a 0 
NCMPLTd)  « L 
NCMPLT{2)  a 0 
IbGNSC  a 0 
TMCURR  a 0, 
TMPRST  a 0, 
NrtVALO  a 0 
I5AVPT  a 0 
tt020  IE  CIAHEAO  ,NE,  n 
NX  a 1 
lAHEAD  a 0 
IE  (IIN(3)  .GE.  0} 

* 

ISNO  a 4020 
WRITE  (6,9050)  ISNO 


GO  TO  4030 


SO  TO  4310 


ENTRY  POINT  FOR  SAMPLE  CYCLING 


4030  IE  (IBGNSC  .EO.  0)  IA4NOX  a 0 
4040  NX  a NX  « 1 

IE(MEAS(3399+NX)  ,LE,  ISYNC  .AND,  NX  ,NE,  577)  CO  TO  4050 
IE  (IIN(3)  ,GE,  0) 

^0  TO  4050 

ISNO  a 4040 

WRITE  (6,9050)  ISNO 

WRITE  (6,9100)  NX 

CALL  PDuwp(MEAS(3399*NX),MEAS(3399tNX), 1) 

9050  IE(Nx  .LT,  PRNOx3(l,n)  GO  TO  4040 


Check  TO  SEE  JF  PROCESSING  HAS  BEEN  COMPLETED  FOR  THIS  mEas  * 
ARRAY 


IE  (NX  ,LE.  PRN0X3(2,l)) 

NX  a NX  • 1 
IF  (IBGNSC  ,NE.  0) 

IF  (IIN(3)  ,GE.  0) 

• 

ISNO  a 4040 

WRITE  (6,9050)  ISNO 

WRITE  (6,9900) 

4059  CALL  SEGCDKl  |QAEXEC,CGG',0,0) 

4060  IE  (MEAS(3599  ♦ NX)  ,GT,  ISYNC) 


GO  TO  4060 
GO  TO  4200 


GO  TO  4059 


GO  TO  40B0 
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4061  IA6SET  ■ 0 

IF((IA4N0X  ♦ NX  - ISAVPT)  .UE,  ISMAX) 

KRET  » 2 

JPAR  cl6 

NSAH  bNX 

UAN  s 6 

CALC  SEG( 'OKI  I ANPRO.LLL' >2) 

CALL  ZER0(1A4,685) 

IbCNSC  « 0 
IPRVOK  a 0 
IA4N0X  a 0 ' 

NMVAlO  a 0 
SUMTM  a 0, 

USCNTM  a 0, 


CO  TO  4030 


CO  TO  4030 


4080  1A6SET  a lAbSET  * I 
IF  (IA6SET  ,EQ,  2) 

I8AVPT  a NX  • 1 
IF(NX  .LE,  1) 

IF(M£AS(2246  * NX)  .CT.  lENO) 
408S  KRET  a 2 
JPAR  ate 
NSAM  aNX 
LAN  a 2 

call  SEC('DK1|AnPR0.LLL'»2) 
call  2ER0(IA4,685) 

IA4NDX  a 0 
IPRVOK  a 0 
NHVALO  a 0 

4120  IF  (I1N(3)  ,CE.  0) 

• 

ISNO  a 4120 
WRITE  C6,POSO)  ISNO 

4121  IF  (M£aS(51P  ♦ NX)  ,LE,  ISYNC) 

IF  (MtASCl095  ♦ NX).LE,  ISYNC) 

IF  (MEA5U671  ♦ NX),LE.  ISYNC) 

IF  (MEASC2823  ♦ NX).LE.  ISYNC) 


GO  TO  4061 

GO  TO  4085 
CO  TO  4120 


GO  TO  4125 


CO  TO  4300 
CO  TO  4300 
CO  TO  4300 
CO  TO  4300 
CO  TO  4400 


C 

C 

c *,**<,*.*..»*...»****•*******•*•*•************•• 

c * PARTIAL  LOADING  OF  IA4  ARRAY 
C ,,*....******..**.*.**********»*********•****** 

4200  IF  (IA4NOX  ,EQ.  0) 

t TMFRST  a TMES69  ♦ (TMS153  • ISAVPT) 

IF  (I1NC3)  ,GE,  0) 

« 

ISNO  a 4200 
WRITE  (6,9360)  TMFRST 
4220  IPART  a NX  • ISAVPT 
IPRT  a IA4N0X  ♦ 1 

CALL  AM0V(MEA8(2248  ♦ 1 S A VPT ) , I A4 ( I PRT ) , I P ART ) 
IF  (IIN(3)  .G£.  0) 

WRITE  (6,9050)  ISNO 
CALL  POUMP(NX,NX, 1) 


GO  TO  4220 


CO  TO  4250 


* 
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CALL  POUMPdSAVPT,  ISAVPT,  n 

CALL  PDUMP(IA«NDX, lAUNOX, n 

CALL  PDUMP(MEAS(22«8),MEA8(2823), 1) 

WRITE  (6,9050)  18N0 

CALL  PouMP(iA4(n,iAa(685),n 


- * terminates  processing  for  the  present  meas  array 

4250  IA4NDX  • IA4NDX  ♦ IPART  ' 

ISAVPT  ■ 0 
IAHEAD  ■ 0 
IF  (IIN(J)  ,GE,  0) 

* SO  TO  4260 

WRITE  (6,0050)  I8N0 
WRITE  (6,9000) 

9260  call  SEC(IDK1iOAExEC,GSCI,0,0) 


PROCEISING  (JATA  that  IS  PART  OF  A VALID  SCAN  LINE 


9100  IF  (IIN(J)  ,;;e,  0) 

* 

ISNO  • 4300 
WRITE  (6,9050)  ISNO 
CALL  P0UMP(PRN0X3(2, l),PRN0X3(2,l),l) 
430S  IF((NX  ♦ 1)  ,LE.  PRN0X3(2,D) 

IAHEAO  ■ 1 

9310  IF  (HEAS(I20  ♦ NX)  ,GT,  ISvNC) 

LAN  ■ I 

9320  IF  (MEAS(l0O6  *NX)  ,GT,  ISyNC) 

LAN  ■ 2 

9330  IF  (MEAS(l67a  +NX)  ,GT,  ISYNC) 

LAN  ■ 3 

9390  IF  (MEA8(2829  ♦NX)  ,GT,  ISVNC) 

LAN  a 2 


CO  TO  9305 


GO  TO  9310 

CO  TO  4200 
CO  TO  4320 

GO  TO  4380 
CO  TO  4330 

CO  TO  4380 
GO  TO  4340 

CO  TO  4380 
CO  TO  4400 


BAD  SYNC  PULSE 


4380  KRET  a 2 
NSAM  aNX 
JPAR  al6 

CALL  8EC(i0Kl|ANPR0,LLL',2) 


i ) 
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C 

««00  If  (IBCN3C  ,EQ,  0) 

4405  IT0T4L  ■ IA4N0X  ♦ I8AVPT 
^ IR(IT0T*L  ,CT,  iSHAx  ,OR,  ITOTAL  ,LT,  ISMJN) 

C 

c • PRtVIOuS  SCAN  IS  SOOD  ******** 

IRRVOK  ■ 1 ***************** 


CO  TO  4420 
CO  TO  4410 


* 


c 

c 

c 

e 

c 

c 


CO  TO  4420 


* scan  is  Either  too  lonc  or  too  short 

* ANPRO  OUTPUTS  appropriate  HESSaCE 


«410  KRET  ■ 2 
JPAR  B18 
N8AH  bNX 
can  b ITOTAL 

CALL  IEC( 'OKI ianpRO.LLL' |2) 
CALL  ZCR0(IA4,68S) 

I8AVPT  B NX  . 1 
IA4NDX  a o 
IPRVOK  B 0 
NMVALO  B 0 

C 


c 

c 

c 

* CHECK  FOP 

VALID  start  for  NEXT  SCAN  LINE 

* 

4420 

C 

IP  (MEA8(2248 

♦ NX)  ,LT,  50) 

Co  TO  4460 

»•*** 

c 

c 

c 

c 

* BAD  start 

OP  scan  detected 

>*«** 

* 

lacNsc  ■ 0 

1 * * • • 

KRET  B i 
JPAR  b18 
NSAM  bNX 
LAN  B 1 

CALL  8EC{ 'OKI  I aNPRO.LLL ' .2) 
NMVALO  BO 


4460  IBCN8C  * I 

«480  IP  (IPRVOK  ,NE,  1) 

C 

c * move  FiNAi.  PART  oP  PRE VIOUS*SC AN 
IP  (IXN{3)  .Ce/SJ****************** 

* 


CO  TO  4480 
CO  TO  4030 


* 


ISNO 


a 


4460 


CO  TO  4483 
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WRITE  (6»«050)  ISNO 
aaes  ie(nx  .eg.  i) 

IPRT  ■ UaNDX  * 1 
IF  (IIN(S)  ,GE.  0) 

* 

CALL  PDUMF(IPRT,lPRT,n 

CALL  PDUMP(18AVPT,  ISAVPT, n 

CALL  PDUMP(NX,NX,n 

CALL  PDUWPdiUNDX,  lAttNDX,  n 

call  P0UMP(PEA8(22«8) »MEA8(2623)* 1) 

mRITE  (6#«050)  ISNO 

aaea  call  AM0V(MEAS(22tt8) , I*«(IPRT),I8AVPT) 
IF  (IIN(l)  ,CE,  0) 

« 

CALL  PDUWP(lA4(l)»IAU(beS)>n 
4489  liAVPT  • NX  - 1 


GO  TO  446W 
GO  TO  4484 


GO  TO  4485 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


PR0CE8S  The  scan  line 

1RMP8T-L0CATI0N  OF  THE  FIR8T  VALUE  IN  THE  ARRAY  CE  30 


IRMP3T  ■ 0 


C 

C 

C 

C 

C 

C 

C 


• determine  FIR8T  LOCATION  WHERE  A4  IS  GREATER  ThAN  OR  EQUAL 

• TO  30  PCM  COUNTS  ^ 

• ( EXCLUDING  LOCATION  I, SINCE  IT  MAY  HAVE  A VALUE  CT  600) 


DO  R500  n6Tb2«IA4N0X 
IF  (1A4(NGT)  ,LT.  30) 
IRMPST  « NOT 


GO  TO  0500 
GO  TO  4510 


4500  CONTINUE 


* ACCUMULATORS  FOR  INDIVIDUAL  SCAN  LINE  TOTALS 


4510  IF  (IIN(3)  .GE,  0) 


GO  TO  4515 


call  PDUMPdRHPST,  IPMPST,  1) 
4519  IA4N0X  ■ 1A4NDX  W ISAVPT 
lOEC  ■ IA4N0X  t 1 
SUMX  ■ 0. 

8UMY  ■ 0, 

8UMXY  • 0. 

MXA4  • 0 
HNA4  P IA4C2) 

SMX80  • 0. 
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C 

C 

C 

C 

C 


•HYIO  • 0. 

IF  (NHVAtD  ,NE,  0) 


CO  TO  U530 


• ZERO  overall  accumulators 


•UHT»  • 0 
RM3T0T  ■ 0, 
RMXSUM  ■ 0. 
RMNSUM  • 0. 
RX8MS0  ■ 0, 
RN8HSQ  ■ 0. 


C 

C 

c 

c 

c 


DETERMINE  PEAK  AND  .-INIMUM  VALUES  OF  AU  FOR  THE  SCAN 


<15)0  DO  R5S0  LUaUlARNOX 
lOEC  • IDEC  - 1 

IF  (lAaCIOEC)  .CT,  MXAtt)  MXAU  ■ lAU(IDEC) 
IF  (IA«(I0EC)  tlE.  MNAR)  MNAA  » UaCIOEC) 
IF  (lOEC  ,LT.  IRMPST) 

8UMX  ■ SUMX  * lOEC 
SUMY  ■ SUMY  * lAa(IDEC) 

8UMXY*  SUMXY  t (FlOaT(IOEC)  * lAUdOEO) 
SMXSQa  SMXSO  * ( FLO AT ( I DEC)  * *2 ) 

SMYSQa  8MVSO  ♦ (FLOAT ( I AR{ IDEC) ) *»2) 

4550  CONTINUE 


CO  TO  4550 


c 

c 

c * 

c ***< 

COMPUTE 

STRAIGHT  line  EQUAHON  | Y ■ BO  ♦ Bl*X 

H 

r * * * * 

c **•< 

c * 

COMPUTE 

81  coefficient 

» • * • * 
• 

k * ft  * * 

c * • • < 

aS70 

• 

(UNO) 

.CE.  0) 

CO  TO  4575 

CALL  POUMP(SUMX,SUMX,4) 

CALL  PDuMP(8UMY, SuMYr 4) 

CALL  P0UMP(8UMXY,8UMXY,4) 

CALL  P0UMP(SMX80«SMXS0.4) 

CALL  P0UMP(SMY80«|HYSQ«4) 

4575  RA4N0X  • IA«NOX  - IRMPST  ♦ l 

81  • ( (RA4N0X*8UMXY)  « (SUMX  * SUMY)) 
* ( (RA4N0X*8MXS0)  • (SUMX  •*  2)) 

IF  (UNO)  ,SE.  0) 


CO  TO  4580 


CALL  P0UMP(B1>BI«4) 


C 

C 

C 

c 

c 


* COMPUTE  BO  COEFFICIENT 
4580  BZRO  ■ (IUMY/RA4N0X)  • (9J  * ( 8UMX/RA4N0X ) ) 


* 
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i ) 


If  (IIN(3)  .CC,  0) 

* CO  TO  U585 
CALC  P0UMP(8ZR0,BZR0,«) 

4585  RHSUN  a 0, 

C 

C 

C ****<•*•*****•***•*•***•******•*******•****•***•*******.•**«•••* 

c * determine  deviation  of  actual  values  from  estimated  values 

C A********************************.***************************** 

DO  4*90  IDEVbIRMPST,1A4NDX 
Yf.sr  a BZfiO  ♦ (FLOAT(IOEV)  • 81) 

VA:T  a U«(IDEV) 

IF  ( ABSCVACT  - TEST)  ,GT,  ILTOL)  CO  TO  4650 

C 
C 

C AAAA«****AAAA..AAA*AA*. «*****#«***.***««***.*•**«**. •.*«•••*.*. 

C * COMPUTE  THE  SQUARE  OF  THE  INDIVIDUAL  DEVIATION 

C * ACCUMULATE  the  SUM  OF  THE  SQUARE  OF  DEVIATIONS 

C A *••*«* A A A* A* A *•«***•*•** A *•**********«,******«*«******* *•****•« 

RMSINO  a (ViCT  - YEST)aa2 
RMSUM  a RMSUM  * RMSINO 

4590  CONTINUE 

IF  (I1N(3)  .CE.  0) 

A CO  TO  4592 

HRITE  (6|9320)  RMSUM 
C 
C 

C AA.AAAAAAAAAAAi;»AAAAAA**AAAAAAAAAAA*A***«AAAA**AAA*AAAAAA.*.«*A. 

C A COMPUTE  RMS  FOR  THE  SCAN  LINE 

C aaaa.aaaaaaaaaaaaaaaaaa.aaaaa.aaaaaaaaaaaaaaaaa.aaaaaaa.aaaaaaa 

4591  RMSFnl  a SQRT(RmSUM  / RA4N0X) 

IF  (IINH)  ,CE.  0) 

* CO  TO  4594 
CALL  POUMP(RMsFNL, RMSFnl. 4) 

C 

C 

C A.AAAAAAAAAAAAAAAA.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA. 

C A COMPUTE  THE  SCAN  LINE  TIME 

C AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA.AA.AAAAAAAAAAAAAAAAAAAAAAAAAAA, 

4594  TMCURR  t TMES69  ♦ (TMS153  • (NX  - 2)) 

USCNTM  a TMCURR  - TMFRST 
IF  (IIN(l)  ,CE.  0) 


WRITE  (6,9360)  TMFRST 
WRITE  (6,9370)  TMCURR 
call  POUMP  (USCNTM, USCNTM, S) 

C 

c 

C aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

C A UPDATE  THE  TOTAL  ACCUMULATORS 
C aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


4596 

f 


SUMTM  ■ 
RMSTOT  a 
RMXSUM  a 
RMNSUM  a 
RXSMSQ  a 


SUMTM 

RMSTOT 

RMXSUM 

RMNSUM 

RXSMSQ 


A USCNTM 
A RMSFNL 
A MX  A4 
A HNA4 

A FLOAT (MXAU) aa2 


GO  TO  459b 


A 


A 


A 


A 


A 


A 
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RN9HS0  B RNSMSQ  * FUOAT (MNAa ) **2 
If  CIIN(3}  .6E.  0) 

• GO  TO  4S96 

nRITE  {6,9330} 
call  P0UMP(SUMTM,SUMTM,5) 

CALL  P0UMP(BmjT0T,RM8T0T,U) 

CALL  P0UMP(RHXSUM,RMXSUH,U) 

CALL  P0UMP(RMN9UM,RHNSUH,<t) 

CALL  P0UMP(RXSHS0,RXSMS0,a) 
call  P0UHP(RNSMSQ,RNSMSQ,U) 
call  P0UMP(MXAU,HXA6,  n 
CALL  P0UMP(MNA4,MNAtt,  n 


• update  valid  scan  line  COUNTER 


4590  NHVALO  ■ NMVALD  * 1 

IF  (NMV*L0  ,NE,  ICSCN)  go  TO  4000 


* processing  For  the  recjuested  no,  of  scans  has  been  completed  • 


compute  average  of  The  scan  line  peak  values 
compute  average  of  The  scan  line  minimum  values 
compute  standard  deviation  of  the  scan  line  peak  values 
compute  standard  deviation  of  the  scan  line  minimum  Values 
compute  average  of  the  scan  LINE'S  ROOT  meaN  SQUARE  VALUES 
compute  average  time  of  a scan  line 


4b00  AVGMX  B (RMXSUM  / NHVALO)  * .005 
AVGMN  b (RMNSum  / NMVALO)  * .005 

if  (NMVAlO  ,NE,  n GO  TO  4601 

30PK  B 0. 

SOMIN  B 0, 

GO  TO  4602 

4601  SOPK  b,o05  « SORTC C (RXSMSQ  • NMVALO)  - (RmXSUM**2) ) / 

* (NMVALO* (NMVALO  - 1))) 

SOMIN  B.005  * SORT ( ( (RNSmSO  * NMVALO)  - ( HMNSUM* *2 ) ) / 

* (NMVALO* (NMVALO  • 1)5) 

4602  AVGLIN  B (RmstOT/NMvaLD) *,005 
AVSCTM  b (SUMTM/NMVALD) 


* OUTPUT  I 

* AVC  w/L  RAMP  PEAK  (AVGMX  ) 

* AVG  H/L  RAMP  MIN  (AVGMN  ) 
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c * 

SD 

RAMP  PEAK 

c * 

SD 

W/L  RAMP  MIN 

c * 

AVC 

SCAN  RMS 

c * 

AVC 

SCAN  interval  time 

c «*************.**«* 

IF  (I1N(3)  ,6E.  f) 

« 


27-JUL*7k  PACE  11 

(SDPK  ) 

(SOMIN  ) 

(AVCLIN) 

(AVSCTM) 


CO  TO  4603 


CALI  POUMP(AVCMX, AVGMX,4) 
CALL  PDUMP(AVCMN, AVGHN,4) 
call  P0UHP(80PK,SDPK,4) 

CALL  PDUMP(3DHIN,S0M1N,4) 
CALL  POUMP(AVCLIN, AVGLIN,4) 
call  P0UMP(AVSCTM, AVSCTM, 5) 


4603  to  • 12 

XNTNUH  ■ AVGMX 

RFRAC  • AVGMX  • INTNUM 


IFRAC  ■ RFRAC  • 10000. 
CALL  ZER0(N7ABUF(1),50) 


C 

C 

C .**•.*.*»*************•**••***' 

c • OUTPUT  RECORD  TYPE  4 
C «.«.****..«***.********••*•***< 

NTABUF(l)  ■ 4 
NTABUF(l4)a  INTNUM 
NTABUF(15)«1FRAC 

4605  call  NTRAnCLO, l»50,NTABUF(in 
4607  call  NTRANCLO. IS.LSTAT) 

IF  (LSTAT  ♦ 1)  460R»4607,4611 
4604  mRITE(6.4030)  LO.LSTAT 
CALL  SECRET 
4611  INTNUM  » SDPK 

RFRAC  • SDPK  - INTNUM 
IFRAC  ■ RFRAC  • lOOOO. 

CALL  ZERO(NTABUFtl)»50) 

C 

C 

c **»*.*.*.*******•************• 

c * OUTPUT  RECORD  TYPE  6 
C **.*.***.*.*»..***«*•****•**•• 

NTABUFd)  • 6 
NTA8uF(14)«  INTNUM 
NTABUF(15)»IFRAC 

4615  CALL  NTRAN(LO,l,50.NTABUF(m 
4617  call  NTRANCLO,  is, LSTAT) 

IF  (LSTAT  ♦ 1)  4614,4617,4621 
4614  »kRITE(6,4030)  LO, LSTAT 

call  secret 

4621  INTNUM  ■ AVCMN 

RFRAC  ■ AvCMN  - INTNUM 
IFRAC  « RFRAC  • 10000. 

CALL  ZER0(NTABUF(1),50) 

C 

C 

c *.*....*.*.*..**.*•***••*••••* 

c * OUTPUT  record  type  B 


i 
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NTABuFd)  * 6 

NTABuMiajs  INTNUM 
NT*BuF(15)»IFRAC 

«625  call  NTRAN(L0,1,50,NTABuF(1)) 

«627  call  NTRAN(L0, 15,LSTAT) 

IF  (LSTAT  ♦ n 462‘>,U627,U631 
i462<>  WRITEC6, 9010  5 LO, LSTAT 
CALL  SECRET 
4611  INTNUN  ■ SDMIN 

RFRAC  ■ SDMIN  • INTNUM 
IFRAC  ■ RFRAC  * 10000, 
call  ZER0(NTABuF(1),50) 

C 

c 

c ••**••****•*«**•***••****•*•*••*•**«**•**•****•**••*•*•*••******■«*• 

C * OUTPUT  RECORD  TYPE  10  * 

C ***.<.*«*******«****»•***** ***************************************** 

NTABuFd)  « 10 
NTABUFd4)»  INTNUM 
NTABUFd5)«IFRAC 

4615  CALL  NTRAN(LO,i»50,NTABUFd)5 
4617  call  NTHAnCLO, 15, LSTAT) 

IF  (LSTAT  ♦ 1)  4619, a617, 4641 
4619  WRTTE(6, 90105  LO, LSTAT 
CALi.  SECRET 
4641  INTNUM  s AVCLIN 

RFRAC  « AvGLIN  - INTNUM 
IFRAC  ■ RFRAC  • lOOOO, 

JNTNUM  ■ AVSCTM 

XFRAC  » AVSCTm  - JNTNUM 

JFRAC  > XFRAC  * 10000. 

CALL  ZER0(NTABuFd),50) 

C 

C 

C .A************************************* ************** *«********••«• 

C • OUTPUT  RECORD  TYPE  12  * 

C ******************* A*^********«************* *********************** 

NTABUFd)  « la 
NTABUF(14)«  INTNUM 
NTABUF(i5)»IFRAC 
NTABUF(16)i  JNTNUM 
NTABUFd7)«JFRAC 

4645  CALL  NTRANClO,  l,50,NTABUFd)5 
4647  CALL  NTR*N(L0, 15,LSTaT) 

IF  (LSTAT  * 15  4646, R647, 4649 

4646  KiRnE(6,9oiO)  LO, LSTAT 
CALL  SECRET 

C 

t 

C 

C ********.*******************.***.********************************** 

C * ZERO  counters  IN  PREPARATION  FOR  ANOTHER  CAl  PERIOD  * 


4649  SUMTM  B 0, 

NCMPLT(2)  b I 


REPRODUCIBILITY  OF  THE 
ORIGINAL  PAGE  IS  POOR 
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NMVALO  ■ 0 
RMXSUH  ■ 0. 

RMNSUM  a 0, 

RMSTOT  a 0. 

RXSMSQ  a 0. 

RNSHSO  a 0. 

CALL  ZER0(IAtt,6e5) 
lOONE  a lOONE  f S 
IRMFLC  a I 

CALL  SEC(IDK1|QAExEC.GGCI,0,0} 


a REJECT  SCAN  DUE  TO  DATA  OUT  OF  TOLERANCE  * 


4650  KRET  a g 
JPAR  ais 

lAOJ  a IA4N0X  . NX  a 1 
NSAM  a IDEV  - lADJ 
LAN  a 9 

IF  (IIN(5)  ,CE.  0) 

* GO  TO  4655 

ISNO  a 4650 
WRITE  (6,9050)  ISNO 
CALL  PDUMP(YEST,  YE5T,4) 
call  POUMPCYACT,  YACT,4) 

CALL  PDUMPdOEV,  IDEV,  I ) 

«655  CALL  SEGC 'OKI  lANPRO.LLL' ,2) 

IPRVOK  a 0 
NMVALO  a 0 

4600  IF  (IIN(3)  .CE.  0) 
a 

ISNO  a 4600 
WHITE  (6,9050)  ISNO 
WHITE  (6,9300)  IA6SET 
WRITE  (6,9310)  IBGNSC 
4S10  CALL  ZER0(IA4,6S5) 

;A4N0X  ao 
TMFR3T  aO, 

TMCURR  ao, 

IF  (NX  ,LE.  PRN0X3(2,D) 

IF  (IIN(3)  ,GE.  0) 
a 

ISNO  a ueOO 
WHITE  (6,9050)  ISNO 
white  (6,9900) 

4820  CALL  SEG(iDK1iQAExEC.CGGi,0,0) 


GO  TO  4610 


GO  TO  4030 
GO  TO  4620 


a FORMiT  STATEMENTS 
9000  format  (IX, 'ENTERING  RAMPRO  ') 


JSC-IOIAO 
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9030 

FORMAT 

9050 

FORMAT 

(IX, 

9100 

Format 

(IX, 

9200 

FORMAT 

(IX, 

9300 

FORMAT 

(IX, 

9310 

format 

(IX, 

9320 

FORMAT 

(IX, 

9330 

FORMAT 

(IX, 

9340 

format 

(IX, 

9350 

FORMAT 

(lx, 

9360 

format 

(IX, 

9370 

format 

(IX, 

9900 

FORMAT 

(IX, 

END 

(IH0,'NTRAN  write  ERROR  ON  UNIT',ia, 
•STATUS  WORD  «•,!«) 
statement  number  ',15) 
sample  number  ',15) 

DATA  VALUEi',15) 

IA6SETI ' , 15) 

IBGNSC  t • , 15) 

RMSUMi ' ,F15,7) 

TOTAL  ACCUMULATORS') 

Start  time  of  meas  array' ,D22, la) 

DELTA  TIME  FOR  Aa  ',D22.14) 

START  TIME  FOR  THIS  SCAN  TMF RST | ' , D22 , I 4 ) 
STOP  TIME  FOR  THIS  SCAN  TMCURR | ' , 022 , 1 4 ) 
LEAVING  RAMPRO  •) 


ROUTINES  CALLEDi 

AMOV  , SEC  , POUMP  , ZERO  , FLOAT  , ABS 
NTRAN  , 8EGRET 


SWITCHES  a /ON,/SU,/CO 


BLOCK 

length 

MAIN, 

4667 

(022166)* 

A4CHNL 

685 

(002532) 

ANDAT 

91 

(000266) 

cmplet 

2 

(000004) 

dcargn 

28 

(000070) 

DCDATA 

3993 

(017462) 

HISDAT 

8 

(000020) 

INPUT 

158 

(000474) 

INTNDX 

5 

(000012) 

PRNOX 

54 

(000154) 

SAVE 

33 

(000102) 

times 

522 

(002024) 

titles 

32 

(000100) 

**COMPX 

LER  - 

■•••  CORE** 

PHASE  USED  FREE 
declaratives  04778  12488 
EXECUTABLES  05511  11755 
assembly  0J415  16768 


SORT 
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SEOD 

SRUN  FORTRN 
FORTRAN  V00«A 

iOKl |RESPRO,OSJ,LP|<OKl iRESPR0,FTN/0N/SU/C0l99 
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C 

C 

C 


LOAD  MODULO  RE*RR0 


r***RE8PRrC0MPUTE8*RE8P0NSlVlTV  FOR  SWL  AND  hEATEO  CAL 


RTME,85TIME,D8EC 
START, STOP, TOL 
IDT 


double  PRECISION 

double  precision 
REAL  IHT,  IRT, 
real  CNVTMP(60) 

integer  ANSTAT 
Integer  ancntr,anrec 

INTEGER  PRNDXl,PRN0X2»PRN0X3 
INTEGER  FMT,FR8TR,FR8TP 
dimension  jcmplt 

COMMON  /PRNDX/ 

COMMON  /ANDAT 

ANCNTR..-..^  

IWLFS#  IRAMFG,L2NE,IPG 
/ DCDATA  ( MEASCSRRS) 

/OCARGN/  START,  STOP,  TOL, 

FMT,  lOKRTP,  FRSTRC2), 

IDBLE,  LU,  ISIZE, 

MAX,  NAV,  INIT, 

ISTAT 

/resdat/  jcmplt 


I1,PRN0X2,PRNDX3 

1PLT(2)!kCMPLT(2) ,NA4(fea5) , I T IM ( 2 ) , NT ABUF (50 ) 
(/  PRN0XI(2,9),PRNDX2(2,'>),PRNDX3(2,R) 
r/  JPAR, NSAM, LAN, M act, ANSTAT CIS) ,KRET, 

ANCNTR(15),ANREC(15),TANCTR(18),IR£SFG, 


COMMON 

COMMON 

1 

2 
3 
a 

common 

*,AVJ2, 


IFLAGG, 
FR8TP(2) , 
NTH, 
lODC, 


IPSOK 


AVJl,  AVJ5,  AVJ 


( 2) . KCMpLT (2),NAU(665),NFSCN,NX,NSAMPL,NIX 

b,  SVJ2,  SVJ3,  8VJ5,  SVjb,  JSCNb,  NS3CAN 


COMMON 

common 

COMMON 

COMMON 

COMMON 

common 

COMMON 


/SIXSV/  ISIX 
/ CALRT  / JJNT, 

/HISOAT/  IRMFLG,  irsflg,  ibvflg, 

ICLHOR,  IwUHDR,  lOONE, 

/input/  IIN(102),RIN(28) 

/ INTNDX  / L,  LBIaS,  LHEAT,  LSWL,  LMLM 

/RECPTR/  IVAR2 

/TIMES/  BJO,  SSTIMEC2,65) 


NTRCAL 


imlflg, 

IBVMOR 


'QU I valence  (IINC22) , I8VNC) , (IINC23) , IEnD) , ( I INC2«) , ISMIN) , 
{IINC25),I3MAX) 

DATA  EP/2, 7182818284/ 
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c 

c 

c 
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*.862490E-1,4*,0E*0/ 

rrfifjy  ° IR3FLC  ,EQ.  I) 

i5T,  OICOTO  2050 
0)®OTO  2099 

Jcmplt  18  completion  flag  for  sml  cal  period  .. 

j .EO.  OJCOTO  2010 
J^fJCMPLlCl)  ,EQ,  LSWL) 

IF(JCMPlT(2)  ,E0,  DcoTO  2010 

anomalous  condition  . not  enough  swl  cal  scans 

JPAR»17 
LANbO 
NSAMbO 
KRETbI 

CALL  8EG( 'OKI  I ANPRO.LLL ' »2J 


GOTO  2955 


GOTO  2020 


C 

C 

C 


set  up  8WL  cal  interval  START  TIME  (U 


2010  JCMPLT(n*L8WL 
JCMPlT(2)«0 
GOTO  2030 


SHL  cal  period  complete  when  jcmplt(2) 
2020  IP(JCMPLT(2)  ,EQ,  DOOTO  2999 


GOTO  2960 


*• 


ILObITART  index 


IHIBSTOP  index  IPR0»0  MEANS  SWL  PROCESSING  ** 


2030  IL0«PRnDXI(1,8) 

IHlBPRNDxj(2f 8) 

IPRObO 

goto  2100 

' ••  «C«Pl,  I.  eOM.LCTION  a.o  f0»  he.teo  cl  period 

IPlKcIJhJiii  'fS' 

ir(KCMPLT(l)  ,E0,  LMEAT) 

I^(KCMPLTC2)  .EO.  noOTO  2060  ^0^0 


.I.0P.L0O.  COROmoN  . not  ENOOGH  HE.TEO  C.L  


JPARbiT 
lanbi 

NSAMbO 

KRETbI 

CALL  SEG( ' OK  1 1 anPRO.LLL ' » 2) 


C 

C 

C 


**  SET  UP  HEATED  CAL  INTERVAL  START  TIHE  (L) 


GOTO  2976 


2060  «CMPLT(l)tLHEAT 
»<CMPlT(2)bO 
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GOTO  2080 
C 

C •*  heated  CAu  period  complete  when  KCMPlT(2)  « I ** 

c 

2070  IF(KCMPlT(2)  ,EQ,  DGOTO  2999 
C 

C **  ILOWSTART  IHH8T0P  WhEN  IPRO«l  HEATEO  CAL  PROCESSING 
C 

2080  ILOBPRNDXin ,7) 

IM1»PRNDXJ(2,7) 

IPROwl 

C 

C *•  START  SCAN  START/STOP  DETECTION  ** 

C **  NFSCN  ■ I SAYS  NOT  LOOKING  FOR  VERY  FIRST  SCAN  •* 

C 

2100  IF(NF5CN  ,EQ,  DGOTO  2110 
NSAMPL*! 

C 

C *•  SET  UP  Mg*S  ARRAY  LOCATORS  FOR  ALL  SIX  CHANNELS  ** 

C 

2110  ILLwILO-1 

L0CAla520«ILL 

LOCA2«1096*1LL 

L0CA3-167I+1LL 

L0CA4a22«S«ILL 

L0CA5«2S2tt4lLL 

LOCA6«3a00«ILL 

C 

c «*  NX  IS  THE  SCAN  Sample  counter  ** 
c 

2120  NXaO 

IFdSTA  ,E0.  1)  GOTO  2200 

C 

c Check  channel  as  for  sync  pulse  cisynC)  ** 

c 

2130  IF  (mEAS(L0CA6*NX)  ,LT,  ISYNOCOTO  2160 
ISlXalSlXYl 

IFCISIX  ,E0,  2}G0T0  2160 

IF(tNX-l)  ,LT,  OJ  goto  2170 

C 

C **  CHECK  channel  AO  FOR  HINIMUM  PEAK  COUNT  (lENO)  ** 

C 

IF(MCaS(LOCAU»(NX-1)  ) ,LT,  IENO)  GOTO  2700 

c 

C ••  CHECK  SYNC  pulses  on  other  channels  ** 

C 

2U0  IF  (MEAStLOCAUNX)  ,LT,  I8YNOGOTO  2190 
IF  (MEAS(L0CA2*NX)  ,LT,  ISVNOOOTO  2190 
IF(MEAS(L0CA3  + NX)  ,LT,  ISYNOCOTO  2190 
IF(MEAS(L0CA«*NX)  ,LT,  ISYNOGOTO  2190 
GOTO  2500 

C *•  CHECK  FOR  SCAN  TOO  LONG  (>  ISMAx}  ** 

C 

2160  ISIXaO 

IF( (NSAMPL+NX)  ,GT,  ISMAXJOOTO  2300 
ZTSTalLOANX^NIX-l 
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IF(1T8T  ,CE,  IHI)  goto  2180 

2170  NXbNX^I 

GOTO  2130 
C 
C 

2180  IF(nF8CN  ,EQ,0)GOTO  2999 

**  MOVE  PART  OF  SCAN  TO  CH,  A4  ARRAY  (NA4) 

REA0(2' 1)NA4 

CALL  AM0V(MEAS(L0CA2) ,NA4(N8AMPL) »NX) 

WRITEC2' 1)NA4 
REA0(2I2)NA4 

CALL  AM0VCMEASCL0CA3) ,NA4(NSAMPL)  f NX) 

WRITE(2'2)NA4 
REA0(2I3)NA4 

CALL  AM0V(MEAS(L0CA4) ,NA4(NSAMPL)  ,NX) 

WRITE(2'3)NA4 
READ(2'4)NA4 

call  AM0V(MEAS(L0CA5) ,NA4(N8AmPL) » NX) 

WRITE(2*4)NA4 
REA0(2'5)NA4 

call  AM0V(HEAS(L0CA6) f NA4CNSAMPL)  ^NX) 

WRITE(2'5)NA4 
NSAMPLBNSAMPLfNX 
NFSCN«1 
NIX»0 
GOTO  2999 

**  Check  for  End  of  heas  array  or  data  period  ** 

2190  IF((nX*1)  ,GT,  IHDGOTO  2400 
IZiNXtl 
GOTO  2210 
2200  I1«NX 

**  CHECK  NEXT  VALUES  IN  OTHER  CHANNELS  FOR  SYNC  PULSES  ** 

IF(MEA8(L0CAUII)  ,LT,  ISYNOGOTO  2221 
IF(MEAS(L0CA24.II)  .LT,  ISYNOGOTO  2222 
IFCMEA8(LOCA5tII)  ,LT,  ISYNOGOTO  2223 
IF(MEA8(L0CAS*II)  ,LT.  ISYNOGOTO  2225 
GOTO  2500 

**  anomaly  • BAD  SYNC  PULSE  --  SCAN  NOT  REJECTED 

2221  LAN»1 
GOTO  2230 

2222  LANB2 
GOTO  2230 

2223  LAN*3 
GOTO  2230 

2225  LANbS 
2230  JPARals 
NSAMkNX 
KRET«1 
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C 

C 

C 

2300 


2350 


C 


C 

C 

c 

2400 


C 

C 

C 

2500 


C 

C 

C 

2510 


CALL  SEC( 'OKI tANPRO.LLL' »2) 

GOTO  2500 

**  PREVIOUS  scan  invalid  ••  ZERO  NA4  ARRAY  ** 

CALL  ZER0(NA4(1},685) 

DO  2350  Ill,« 

WRITEC2' I)NA4 
CONTINUE 

nsampl*! 

**  anomaly  ••  BAD  SYNC  PULSE  ON  CM,  A6  ** 

NFSCNal 

JPARh16 

NSAMiNX 

LAN«6 

KRET«l 

CALL  SEG( lOKl I ANPRO.LLL' «2) 

GOTO  2170 

**  End  of  MEAS  array  ••  move  good  data  to  NA4  array  ** 
I8TA»1 

READC2I  DNA4 

CALL  AM0V(M£A8CL0CA2) ,NA4(NSAMPL) /NX) 

WRITEC2' l)NA4 
READ(2'2)NA4 

call  AmOV(MEASCLOCA3)/NA4(NSAMPL)#NX) 

WRITEC2'2)NA4 

REA0(2»3)NA4 

call  AM0V(MEA8(L0CA4) ,NA4(NSAMPL) /NX) 

WRITE(2«3)NA4 

READ(2'4)NA4 

CALL  AM0v(MEASCL0CA5) /NA4CNSAMPL) /NX) 

NRITE(2'4)NA4 

READ(2'5)NA4 

CALL  AM0V(MEAS(L0CA6) /NA4(N5AMPL) /NX) 

WRITE(2'5)NA4 
GOTO  2999 

CHECK  FOR  CORRECT  NUMBER  OF  SCANS  ** 

IF(NFSCN  ,EQ,  0)  GOTO  2530 

IF ( (NSAMPL+NX)  ,GT,  ISMAX)GOTO  2510 

IF((NSAMPl+NX)  ,LT,  ISMIN)G0T0  2510 

iPSOKal 

GOTO  2530 


**  anomaly  ••  SCAN  TOO  LONG  OR  TOO  SHORT  ** 


jr AK*  1 e 

NSAMsNx 

IPSOKsO 

NFSCNrO 

LANsNSAMPL^NX 

KRET«1 

call  5EG( 'DKI iANPRO.LLL 
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IHI«IHI-NIX 

C 

C CHECK  FOR  FIRST  CH,  A<l  SAMPLE  LESS  THAN  SO  PCM  CNYS  ** 

C 

2530  Il«L0CAa4>NX«l 

IFCMEASnn  .LT,  50)C0T0  2560 
NFSCNiO 
C 

C **  anomaly  -•  FIRST  sample  IN  AU  TOO  HIGH  ** 

C 

jPARalB 

NSAMaNX 


LANH2 

KRET-i 

CALL  8EG( 'OKI  I ANPRO.LLL* »2) 
GOTO  2570 
2560  NFSCNil 
C 

C **  IS  PREVIOUS  scan  okay?  ** 

C 

2570  iFdPSOK  .EQ,  1) 
LOCAlcLOCAUNX 
L0CA2*L0CA2*NX 
L0CA3BL0CA3^NX 
LOCAdaLOCAa^NX 
L0CA5IL0CA54NX 
L0CA6aL0CA6^NX 
NIXiNX 
NXal 

N8AMPL«1 


GOTO  2580 


GOTO  2130 


C 

C **  move  MEAS  data  to  Ch.  AU  array  (NA4) 

C 

2580  REA0(2'nNAti 

CALL  AM0V(MEA8CL0CA2) ,NAa(NSAMPL) iNX) 

WRITE(2'  DNAd 

READ(2'2)NAd 

CALL  AM0v(MEAS(L0CA3) »NAa(NSAMPL) ,NX) 

WRITE(2<  2}NA4 

REA0(2*3)NA4 

CALL  AM0V(MEAS(LOCAa) ,NAa(NSAMPL) »NX) 
WRITE(2' 3)NA4 
READ(2' d)NAa 

CALL  AM0V(MEA8(L0CA5) ,NAa(NSAMPL) #NX) 

hRITE(2'4)NA0 

READ(2'5)NAa 

CALL  AM0V(MEASCL0CA6) ,NAd(NSAMPL) »NX) 

hRITE(2*5)NAU 

NXAdaNSAMPL^NXol 

LOCAIBLOCAI^NX 

L0CA2aL0CA2«NX 

L0CA3aL0CA3*Nx 

LOC AuaLOC Ad^Nx 

L0CA5aL0CA5+NX 

L0CA6aL0CA6+NX 
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NIXSNX 

NXal 

NSAHPLal 


★*  J8CAN  ■ I INDICATES  FIRST  SCAN  OF  20  DETECTED  ** 

jscancjscan^i 

IFCIPRO  ,EQ,  nCOTO  2600 


**  This  starts  thE  actual  processing  of  tme  channel  ** 

**  A4  DATA  for  CALCULATING  RESPONS I V I T Y , ** 


**  CONVERT  wavelength  FOR  CHANNEL  A6  TO  PCM  COUNT 
**  values,  THE  WAVELENGTH,  BRIGHTNESS  OR  REFLECTIVITY, 

**  Channel  bias  voltages,  and  coefficients  for  comput* 
**  ING  the  values  are  FOUND  IN  INPUT  ARRAY  RIN,POSI* 

**  TI0N8  1 THRU  28, 


** 

** 

** 

** 


**  CONVERT  wavelength  FOR  CH,  2,  3,  AND  5 TO  PCM  *'ALUE  ** 
PCMA2«RIN(4)i(RIN(5)*RlNCin 

pCMAl«RiN(U)T(RIN(l2)*RIN(6))*(RIN(13)*(RIN(8)**2))*(RIN(ia)* 

I (RIN(8)**3n 

PCMA5»RIN(l8)f (RIN( 1P)*RIN(15))+(RIN(20)*RIN(15)**2) 

GOTO  2650 

**  determine  if  this  is  the  first  scan  processed  ** 


**  CONVERT  CH,  A6  ** 

2600  PCmA6»RIN(25)*(RIN(26)*RIN(22)) 

**  Find  peak  value  in  Channel  ar  cmpk«)  ** 

2650  K»NXA«+1 

READ(2'3)NA4 

MPKRsNAa(NxAR) 

2660  DO  2670  Jst,NXAR 

IF(MPKa  ,GT,  NAa(K-J)) 

MPKRaNAR(K-J) 

2670  CONTINUE 

**  COMPENSATE  FOR  A«  DRIFT  ** 

iFdPRo  ,EQ,  n 
CA2*(PCMA2*MFKa) /963 
CA3«CPCMA5*M»Ka) /983 
CA5»(PCMA**MFKa)/983 
GOTO  2710 


GOTO  2670 


GOTO  2800 
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¥ 
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2700  CALL  ZER0(NAU(l),6eS) 

DO  2709  1«1»9 
wRITC(2'  I)NAa 

2709  CONTINUE 
IPSOKaO 
NFSCNaO 
NSAHPLal 

C 

c*******  anomaly  -•  PEAK  VALUE  OF  AH  NOT  >950  AT  END  OF  SCAN  *• 

JPARalS 

KRETal 

NSAHaNX 

LANb2 

CALL  SECMDKliANPRO.LLL' *2) 

COTO  2190 

C****«>*  FIND  AU  representative  VALUE  FOR  EACH  CHANNEL  •• 

C 

2710  DO  2720  ja),NXA9 

IF(NAaCJ)  ,CE,  CA2)  GOTO  2650 

2720  CONTINUE 

C*******  ERRORi  NO  A2  VALUE  FOUND  IN  A4  ARRAY  ** 

LLLaJCMPLTH) 

OSECa8>TIME(l,LLL) 

CALL  8T0HM8CD8EC, IT1M,SEC) 
wRITE(6,27J0HTIMn),ITIM(2),3EC 

2730  FORMaTCIH  >•*  * * * * error  - DURING  RESPONSIVITY  ON  CAL  PERIOD  AT 
2'*I5,'I',I2»'I',F7,9, I NO  representative  CH,  A2  VALUE  nA8  FOUND  I 
IN  THE  A9  ARRAV'} 

C 

2790  DO  2790  Jb3,NxA9 

IF(NA9(J)  ,GE,  CA3)  GOTO  2900 

2750  CONTINUE 

C********  error  - NO  A3  value  found  IN  A9  ARRAY  ** 

C 

LLLaJCHPLTn) 

DSECaSSTIHECULLL) 

CALL  STOHMSCDSEC, ITIM,SEC)  ' 

nRITE(6,;.'760)ITIM(i),ITIM(2),9EC 

2760  FORMaTHh  ,'**♦**  error  • DURING  RESPONSIVITY  ON  CAL  PERIOD  AT 
I ' » 19, ' I ' , 12, ' I ' ,F7,9, ' NO  representative  CH,  a3  VALUE  FOUND  IN  TM 
2E  AU  ARRAY') 

2770  DO  2T60  Ja3,NXAR 

!?;nA9(J)  ,CE,  CA5)G0T0  2920 
27lj  CONTINUE 
C 

C********  ERROR  - NO  A5  value  FOUND  IN  AU  ARRAY  ** 

C 

LLLaJCMPLT(l) 

OSECaS8TIHECl,LLL) 

CALL  STOHMSfOSEC, ITIM,SEC) 
wRITE(6,2T90)ITIM(1),ITIM(2),SEC 

2790  FORMaTCIH  ,!*•***  ERROR  - DURING  RESPONSIVITY  ON  TAL  PERIOD  AT 
I ' , IS,  ' I ' , 12, ' I ' ,F7,9, ' NO  REPRESENTATIVE  CH,  A5  VALUE  FOUND  IN  TH 
2E  AU  ARRAY') 

GOTO  2999 

2800  CA6a(PCMA6*MPKU)/983 


f. 
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00  2610  Jb]|NXAU 
:«(NA4(J)  ,CC.  CAA) 

2610  CONTINUE 

ERROR  - NO  A6  VALUE  FOUNO  IN  A4  ARRAY  •• 


GOTO  2970 


LLL»ACMPLT{n 
OaECBSSTIMECliLLL) 

CALL  6T0HM8(0SEC, ITIM.SEC) 

NRITE(fc,2620)ITIM(l),ITIM{2),SEC  , 

2620  FORMATdH  ,i*  * * * • ERROR  • OURlNG  RESPONSIVITY  ON  CAL  PERIOD  AT 
1 ' » 15i  ' I ' » 12, ' I ' »F7,«,  ' NO  REPRESENTATIVE  CH,  A6  VALUE  FOUND  IN  Tm 


2E  A4  ARRAY') 

2650  IF((J-5)  ,LE.  0) 

IF((J^2)  ,GE,  NXA4) 
JA2BJ 


GOTO  2RR9 
GOTO  2660 
GOTO  2660 

GOTO  2740 


2660  LLLaJCHPLT(l) 

D8ECb88TIME(1,LU.) 

call  8T0HM6(0EC,ITIH,SEC) 

wRITE(6,2865)ITIM(i),  ITIM(2),SEC 

2665  FORMATdH  * * * * ERROR  • DURING  RESPONSIVITY  ON  CAL  PERIOD  AT 

l',I5,'l',I2,'l',F7,4,'  A2  value  TOO  NEAR  START/ENO  OF  A«  ARRAY') 

GOTO  2999 


2900  IF((J-5)  ,LE.  0) 

IF((J«2)  .GE.  NXA4) 
JAJaJ 


GOTO  2910 
GOTO  2910 

GOTO  2770 


2910  LLLBJCMPLTd) 

OSECaSSTIMEd.LLL) 

CALL  8T0HM8(0SEC,ITIM,SEC) 
wRITE(6,2915)IT1M(1),ITIM(2),SEC 

2915  FORMATdH  ,i*  * • * * ERROR  - DURING  RESPONsIvlTY  ON  CAL  PERIOD  AT 
1 ' , 15,  ' I ' ,12, ' I ' ,F7,4, ' A1  VALUC  TOO  NEAR  STARt/ENO  OF  AU  ARRAY') 

GOTO  2999 

2920  IF((J.5)  ,LE,  0)  COTO  2910 

IF((Jy2)  ,GE,  NXA4)  goto  2930 

JA5BJ 

REA0(2' 1)NA4 

IV2»NA4(jA2-2)*NA4(JA2-l)4NA4(jA2)*NA4(JA2*l)»NA4(JA2t2) 

VJ2»IV2/5 

AVJ2«AVJ2«VJ2 

8VJ2«SVJ24(VJ2**2} 

READ(2'2)NA4 

Iv1bNA4(JA1-2)«NA4(JA3-1)«NAU(JA1)«NA<4(  JA3«n«NA4(JA3Y2) 

vJlal V3/5 

AVJliAVJlfVjl 

8VJ3aSVJ3«(VJl**2) 

REA0(2'4)NAU 

IV5»NAU(JA5-l)*NA4(JA5-l)^NA4(jA5)*NAa{JA5*nYNA4(JA5»2) 

Vj5»IV5/5 

AVJ5«AVJ5«VJS 

SVJ5aSVJ5«(VJ5«*2) 

IF  (IlN(l)  ,CE,  0)  GOTO  2925 

CALL  P0UMPCVJ2, VJ2,4) 
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CALL  P0UMP(AVJ2, AVJ2.4) 

CALL  R0UMP(8VJ2»SVJ2»4) 

CALL  POU^'PCVJI,  VJ3,4) 

CALL  P0u>*P(AvJ3,AvJ3,4) 
call  P0UMP(SVJ3,8VJ3,4) 

CALL  PDUMP(VJ5, VJ5,4) 

CALL  P0UMP(AVJ5, AVJ5,4) 
call  P0UMP(SVJ5,8VJ5,4) 

2R25  CONTINUE 

NSCCANaNS8CAN4l 
IF(Ns:rAN  ,GE.  20) 

IF(NIX  ,LT.  IHI) 

2R30  LLL«JCMPLT(l) 

08EC»88TIME(1,LLL) 

CALL  ST0hm8{D8EC. ITIM,3EC) 

WRITE(6,2335)ITIM(i),1TIM(2),3EC 
293S  FORHiTdH  ,!••***  error  - DUR 
I ' » 15, f I ' , 12, • I ' ,F7,a,  I A5  value  T 

GOTO  2999 

2990  AVE2IAVJ2/NS8CAN 
AVE3<AVJ3/NS8CAN 

aves*avj;/ns8can 

C 

C********  find  square  ROOT  OF  AVERAGES  8QUARED  MINUS  AVERAGE  SQUARED  ** 

SQAJ2bAVJS**2 
8SDA2b(N83CAN*SVJ2}-SQAJ2 
SQDA2a8S0A2/(NSSCAN-t } 

S0A2a8QRT(8QDA2) 

C 

C *•  A3  ** 

C 

80AJ3aAVJ3**2 

8SOA3a(NS8CAN*SVJ3)-SOAJ3 

8QDA3«83DA3/(N8SCAN-l) 

S0A3aSQRTCS0DA3) 

C 

C *a  AS  ** 

c 

SQAjSaivjS**2 
S8DA5«(N8SCAN*SVJ5)-S0AJ5 
8QDASa8SDAS/(NSSCAN>i ) 

SOASaSQRTCSQDAS) 

C 

c********  CONVERT  values  FOR  PCM  COUNTS  TO  VOLTS  ** 

C 

VAvE2aAvE2«,005 

VAvE3aAvE3*,005 

VAvESaAvEla.OOS 

V8O2aS0A?*,00S 

V8O3a80A3*.00S 

VSOSaSOASa.OOS 

C 

c«**«****  subtract  channel  bias  voltage  *** 
c 


GOTO  2940 
GOTO  2130 
GOTO  2999 


;ng  responsivity  on  cal  period  at 

10  NEAR  START/END  OF  A4  ARRAYi) 
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SV2»VAVE2-RIn(5) 

8V1»VAVE3-RIN(10) 

3V5»VAVE5-RINC17) 

C 

C********  COMPUTE  RESPONSIVITY  ** 

C 

RESP02«8V2/RINC2) 

RESP05«8V3/RIN(9) 

RE8P05«8V5/RIN(16) 

C 

C*******  COMPUTE  NESR  ** 

c 

VNESR2WSD2/RESP02 

VNE8R3»VSD3/RESP03 

VNE8R5»VSD5/RESP05 

IF  (IIN{3)  ,GE.  0)  goto  2945 

CALL  P0UMP(SDA2#SDA2,4) 

CALL  P0UMP(S0A3,SDA3,4) 

CALL  P0UMP(SDA5,SDA5,4) 
call  P0UMPCSV2,SV2,4) 
call  PDUMP(SVi*SV3»4) 

CALL  PDUMPCSV5»5V5,4) 

WRXTE(6»2941)RE8P02»RtSP03.R£SP05» VNESR2# VNESR3# VNESH5 
2941  FORMATdH  ,tRESP02  s i , F 15, 7,  • RE5P03  » • , E 1 5 . 7 , • RESP05  *',Fl5,7, 
*//,'VNESR2  ,F15.7, • VNESR3  = • , F I 5 , 7 , • VNESR5  »»,F15,7) 

2941  CONTINUE 
C 

C********  STORE  A2,  A3  AND  A5  VALUES  FOR  HISTORICAL  FILE  *** 

C 

NTABUF(1)«5 

INTNUM«RESP02 

RFRAC«RESP02-INTNUM 

ifrac«rfrac*ioooo, 

NTABUF(4)«INTNUM 
NTABUF (5)*IFRAC 
INTNUM«VSD2 
RFRAC«V802-INTNUM 
IFRAC«RFRAC*10000, 

NTABUF (9)«INTNUM 
ntabuf  C 10)«IFRAC 
INTNUM«VNESR2 
RFRAC»VNE8R2*INTNUM 
RNUM»RFRAC*10000, 

INTNUM«RNUM 

rfrac*rnum-intnum 

IFRAC»RFRAC*10000, 

NTABUFC 14)«INTNUM 

NTABUF(15)«IFRAC 

IVAL»MEAS(3976) 

R8WL«IVAL*,005 

INTNUM»RSWL 

RFRAc»RSWl-INTNUM 

ifrac«rfrac*ioooo, 

NTA8uF(19)«InTNUM 

NTABUF(20)sIFRAC 

CALL  NTRAN(12, 1,50»NTABUF(i)) 
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2946  call  NTRAN(12, 15,LSTAT) 

IF (LSTAT+ 1)2947,2946, 2948 

2947  LUL*12 

WRITC(6,2998)LUL,L8TAT 

GOTO  3000 

2948  NTABUf'CDBT 
INTNUM«RESP03 
RFRAC»RE8P03*INTNUM 
IFRAC>RFRAC*10000, 

NTA8uF(4)*1nTNUM 

NTABUF(5)»IFRAC 

INTNUMSVSD3 

RFRAC»VSD3-INTNUM 

ifrac«rfrac*ioooo, 

NTABUF(9)iINTNUM 

NTABUFC10)*IFRAC 

INTNUMBVNESR3 

RFRAC«VNESR3*INTNUM 

RNUMbRFRAC*10000. 

INTNUMbRNUM 

RFRAC«RNUM-INTNUM 

ifrac«rfrac*ioooo, 

NTABUF(14)bINTNUM 

NTABUF(15)bIFRAC 

CALL  NTRAN(l2,l,50,NTABUF(n) 

2949  CALL  NTRAN(12, 15,LSTAT) 

IF (LSTATf 1)2950,2949,2951 

2950  LUL«12 

WRITE(6,2998)LUL,LSTAT 

GOTO  3000 

2951  NTABUF(l)89 
INTNUMbRESPOS 
RFRACbRESPOS-INTNUM 

ifrac»rfrac*ioooo, 

NTABUF(4)bINTNUM 

NTABUFC5)*IFRAC 

intnumbvsds 

RFRaC*VSD5-INTNUM 

IFRACbRFRAC*10000, 

NTABUF(9)bINTNUM 

NTABUFnO)eIFRAC 

INTNUMbVNESRS 

RPRAC«VNESR5-INTNUH 

RNUM«RPRAC*10000, 

INTNuMbRNuM 

RFRACbRNUM-INTNUM 

ifrac«rfrac*ioooo, 

NTABUF( 14)bINTNUM 

NTABUF(15)bIFRAC 

call  NTRANH2,  1,50,NTABUF(1)) 

2952  call  NTRAN(12, 15,LSTAT) 

IFCLSTATf 1)2953,2952,2954 

2953  LUL»12 

WRITE(6,2998)LUL,LSTAT 

GOTO  3000 

2954  I00NEBID0NE43 
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IR8FL6«IR|FtC«t 

JCMPLT(2J«1 

AVJ2aO. 

AVJSaO. 

AVJSaO, 

V302«0, 

VSDSaO, 

VSOSaO. 

SVJSaO, 

SVJ2aC, 

SVJSaO. 

JSCANkO 

NSSCANaO 

NFSCNaC 

NXaO 

NSAHPLaO 

NlXaO 

IPSOKaO 


C 

C 

C 


GOTO  2RRR 

* PUT  ZERO  values  in  historical  FILE  FOR  BAD  RESPON8IVITY  CAL 


295S  IFCIDONE  ,CE.  U)  GOTO  aooo 

2960  NTABUFdJaS 

CALL  ZER0(NTA8UF(2) ,«9) 
call  NTHAn(12, 1,50.NTABUF(1J) 

2961  CAj.1,  NTRANC12,  IS.LSTAT) 

I F(L8T at* 1 )2962, 296 1, 2963 

2962  LUL«12 
WRITE(6,2996)LUL»LSTAT 


goto  3000 

2961  NTABUF(n«7 

CALL  NTRAN(l2,i,50,NTABUF(l)) 

2960  call  NTRANUa,  tS,L8TAT) 

IF (LSTAT+1) 2965, 296R, 2966 

2961  LUL*12 

WRITEC6,2996)LUL»LSTAT 

goto  3000 

2966  NTABuFn)a9 

call  NTRAN(i2, 1,50,NTABUF(1)) 

2967  call  NTRAN(j2, i5,LSTAT) 

IF  (L8TAT+ 1)2966, 2967, 2969 

2968  LUL«12 

wRITE(6,2998)LUL,L8TAT 

GOTO  3000 

2969  I00NEaI0ONE«3 
IRSFLGalRsFLG^l 
NXaO 

NgAHPLaO 

NFSCNaO 

NIXaO 

NSSCANaO 

IPSOKaO 

JSCN6aO 


C 


GOTO  2999 


* 
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IF((J-5)  ,LE,  0) 

IF((J«2}  ,GE.  NXA4) 

READ(2'S]NA4 

IVbBNA4(J«2)«NA4(J-l)«NA4(J)+NA4(J^l)«NA4(J«2) 

VJ6aIV6/S 

AVJbaAVJbfVJA 

SVJbaSVJb'»(VJb**2} 

ISCNbalSCNbAl 
IF  (IIN(3)  ,6E,  0) 

CALC  PDuMP(VJb,  VJb,4) 
call  P0uMP(AvJb,AvJb,4) 

CALL  P0UMP(SVJb,SVJb,4) 

CONTINUE 


GOTO  2^60 
GOTO  24BO 


SOTO  2971 


DO  ME  have  twenty  scans  OF  Ab  DATA  7 *• 


iFdSCNb  .GE,  20) 
IFfNIX  ,LT.  INI) 
GOTO  2999 


GOTO  2975 
GOTO  2130 


YES  - COMPUTE  average  Ab  VALUE  ** 


AVEbaAVJb/ISCNb 

SQAJbaAVJb*«2 

SSDAba(lSCNb*SVJb)-SQAJb 

SQOAbaSSOAb/dSCNb-l) 

SOAbaSORT(SQDAb) 


GOTO  2990 


PUT  ZERO  VALUES  IN  HISTORICAL  FILE  FOR  BAD  HEATED  CAL 


4000  IFflDONE  ,EQ,  12) 

297b  NTABUFd)»ll 

CALL  2ER0(NTA8UF(2),«9) 
call  NTRANC12,1»50»NTABUF(1)) 

2977  CALL  NTRAN(12, 15,LSTAT) 

IF (LSTAT+ 1)2978, 2977, 2979 

2978  LUL»12 

WRITE(6,2998)LUL,LSTaT 

2979  lOONEalOONE^l 
IR8FLGalRsFLG+l 

NXaO 

NSAHPLaO 

NFSCNaO 

NIXaO 

NSSCANaO 

IPSOKaO 

JSCNbaO 

2960  LLLaKCMPLT(l) 

D8ECaSSTIME(l,LLL) 

CALL  STOhmSCOSEC,  ITIm, SEC) 

WRITE (b, 2965) IT IM( 1 ) , ITIM(2) , J 


GOTO  2999 


GOTO  3000 


GOTO  2999 


2.10-101 


r»  o o o o o o o o o o o r>  o o 


JSC-10140 


FORTRAN  VOOttA 


17141143  27-JUL-74  FACE  15 


2985  FORHATHH  ,)««*«*  ERROR  • DURING  rEsFONsIvITY  ON  CAL  PERIOD  AT 
1 I I IS. • I 'i I2i < I * «F7.4,  ) A4  value  TOO  NEAR  START/ENO  OF  A4  ARRAY') 

GOTO  2999 


•*«*«••*  CONVERT  PCH  values  TO  VOLTS  ** 

2990  VAVE4«AVEfe*,005 
V>D6aSOA6*.005 

********  SUBTRACT  CHANNEL  BIAS  VOLTAGE  ** 

SV6aVAVE6-RlN(24) 

********  COMPUTE  temperature  FOR  HEATED,  REFERENCE  AND  OICHROIC  TEMPS.* 

lHT«FL0AT{MEA8(176n 

IRTaFL0AT(MEAS(484)) 

I0TbFL0AT(MEAS(122) } 

JJNT»1 

NOICALBMEA8(322) 

NTRCALaMEA8(4S4) 

THEAT«CNVTMP(1)+(CNVTMP(2)*IHT)*(CNVTMF(5)*(IHT**2))*(CNVTMP(4)* 

1 (IHT**3) )*(CNVTMP(5)*(IHT**U) )*(CNVTMP(4)*(IHT**5) ) 

TREFbCNVTmP(S7)+(CNVTMP(38)*IRT)*(CNVTMP(39)*( jrT**2))+(CnVTMP(40) 
1*(IRT**5))*(CNVTMP(«J)*(IRT**4))*(CNVTMP(42)*(IRT**5)) 

T0ICH«CNVTMP{«9)*{CNVTMP(50) *IDT)*(CNVTMP(51 ) * ( IDT**2) )♦ 

1 (CNvtMPc52)*(I0T**3) )*(CNvTMP(53)*<IDT**4) )*{CNVTMP(54)*(I0T»*S) ) 

XPNM«RIN(22)*(TMEAT*273) 

XPNR»R1N(22)*(TREF*273) 

XFND»RIN(22)*(T0ICh*273) 

XHal4388/XFNH 

XR«14388/XPNR 

X0«14388/XPN0 

WVL«RIN(22)**S 

BHH«1  1909/(WVL*( CEP**XH)-1)  ) 

BwRai  1909/(WVL*( (EF**XR)-1 ) ) 

BnO«1  1909/(MVL*( (EP**XO)-l) ) 

ZIHs(R1N(23)*BWH}*( (1»RIN(23) ]*BMD) 

RE8F06a8VA/(ZIH-BWR) 

VNESR6aVSD6/RE8P06 

IF  (IIN(5)  ,CE,  0)  GOTO  2996 

call  PDUMF(80A6,SDA6,4) 

CALL  P0UMF(8V6.SV6.4) 
call  P0UMP(THEAT,THEAT,4) 

CALL  POUMP(TREF,TREF,4) 

CALL  PDUMF(T0ICH,TDICH,4) 

NRITE(6.299S)RE3P0(i.  VNESRb 

2995  F0RM*T(1H  .'RESPOb  a'.FlS.T,'  VNESR6  a',F15.7) 

2996  CONTINUE 

********  STORE  A6  values  FQR  HISTORICAL  FilE  ** 

NTABuFtnall 
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XNTNUMbREIROA 

RRN*C*REIROA-INTNUH 

lFRiC«RFRAC*l0000, 

NTABUF(4)«INTNUH 

NTABUF(S)»!FRAC 

INTNUHbVSDA 

RFRAC>Va06«INTNUM 

IFRAC«RPRAC*10000. 

NTABUF(9)»INTNUM 

NTABUF(10)«IPRAC 

INTNUM»VNE3R6 

RFRACaVNESRb-lNTNUM 

RNUMaRFRAC*10000. 

INTNUHaRNuH 

RFRACaRNUM«lNTNUH 

IFRAC«RFRAC*10000, 

NTABUFCiajalNTNUH 

NTABUF (15)aIFRAC 

CALL  NTRAN(12, l,50iNTABUF(l)) 

2991  CALL  NTRANdl,  15,L8TAT) 

I F (LSI AT  + 1)2992, 299 1, 299} 

2992  LUL«12 
wRITE(b,2996)LUL,LSTAT 

COTO  }000 

299}  lOONEalOONE^l 

IR»FLCaIRsFLC*l 

KCMRLT(2)al 

AVJbaO, 

SVJbaO, 

VSDbaO. 

JSCNbaO 

NSSCANaO 

NFSCNaO 

NxaO 

NSAHRL'O 

fPSOKaO 

2998  FORMATClHO, 'NTRAN  WRITE  ERROR  ON  UNIT',19»'  STATU8  wORO'»I«) 

2999  CALL  8EC('0K1|QAEXEC,CCG',0,0) 

}000  CALL  SECRET 

END 


ROUTINES  CALLEOi 

SEC  , AMOV  , ZERO  # STOHM8,  POUMP  , SORT  , NTRAN 
FLOAT  , SECRET 

SWITCHES  a /0N./8U,/C0 


BLOCK  LENGTH 


main. 

bI90 

(01C75U)* 

PRNDx 

8u 

(00015U) 

ANOAT 

91 

(0002bb) 

DCOATA 

199} 

(0l7ab2) 

DCARCN 

28 

(000070) 

RESOAT 

712 

(002b20) 

sixsv 

1 

(000002) 

CALRT 

} 

(00000b) 

HISOAT 

8 

(000020) 

INPUT 

158 

(00097b) 

INTNDX 

5 

(000012) 

RECPTR 

1 

(000002) 

times 

522 

(002029) 
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**C0MPILER  CORE** 

PHASE  USED  FREE 

DECLARATIVES  04762  12504 
EXECUTABLES  06071  11195 
ASSEMBLY  04055  16128 


I 

t 

i 

JSC-IOIAO 


0 

SEOD 

IRUN  rORTRN 


«DKl  lTMUOOP%BJ»l,Pl  <DKl  | TMLOOP  .FTN/ON/SU/CO  I 99 
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LOAD  MODULEi  TMLOOP 


****  TYPE  STATEMENT  **** 

double  precision  sstime,frsprc»lasprc»lasnxt 
double  precision  stop#  start#  tol 

DOUBLE  PRECISION  DELTME,  DEL 
DOUBLE  PRECISION  FRTEST 


integer  FMT#  FRSTR#  FRSTP 

INTEGER  ANSTAT 

INTEGER  PRNDxI#PRNDX2#PRNDx3 

DIMENSION  PRNOXl  (2#9)  ,PRN0X2(2#9) ,PRNDX3(2#R) 


*****  COMMON  STATEMENTS  ***** 


COMMON  /DCARGN/  START,  STOP, 

1 FMT,  IDKRTP, 

2 lOBLE,  LU# 

J MAX,  NAV, 


TOL,  IFLAGC, 

FRSTRC2),  FRSTPC2) 
ISIZE,  nth, 

INIT,  IDOC# 


a istat 

COMMON  / intnox  / L#  lbias#  lheat#  lswl#  lwlw 
COMMON  /DCDATA/  MEAS(3993) 

COMMON  /INPUT/  IIN(102),  RIN(28) 

COMMON  /PRNDX/  PRNDX 1 ( 2 , 9 ) , PRN0X2 ( 2 # 9 ) , PRNDX3 ( 2 , 9 ) 
COMMON  /TIMES/  BJ0,SSTIME(2,65) 


# 


****  equivalence  statements  ***** 


EQUIVALENCE  ( 1 1 N ( 1 6 ) , NOVRL ) # ( 1 1 N ( 1 7 ) , NC ALP ) , ( 1 1 N C I 8 ) , NWC AL ) 


* determine  time  group  CD  and  array  index  CL)  * 
CALL  AMQvcMEASCn#FRSPRC,a) 

CALL  AM0vCMEASC85),0ELTME,a) 

CALL  AMOVCMEASCl«n#OEL»«) 

CALL  ZEROCPRNDXI Cl#  n, 18) 
call  ZER0cPRN0X2(l,n,l8) 

CALL  ZERO(PRNDX3Cl#l)#l8) 

LA8PRC«FRSPRC  ♦ CCMAX-l)  * DELTME) 

DO  200  lBl#9 

GOTO (20 #30# MO #50 #60 #70 #60 #90, 100)  I 
20  KONT«NOVRL 
J»NCALP 

GOTO  no 


30  KONT«NOvRL*NCALP 
JvNwCAL 
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c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 


GOTO  no 


«0  KONT*NOVRL+NCALP+NWCAl 
J«NCALP 
GOTO  no 


so  KONT»NOVRL^(2*NCAi_P)+NWCAi. 
JsNCALP 
GOTO  no 


60  KONT»NOVRL*  (3*NCAUP) +NWCAL, 
J»NCALP 
GOTO  110 


70  K0NT»N0VRL+(4*NCAt.P)+NWCAl. 
J«NCALP 
GOTO  110 


80  KONT«NOVRL+(S*NCAlP)+NWCAi, 
J»NCALP 
GOTO  110 


90  K0NT«N0VRL*C6*NCALP)*NWCAL 
J«NCALP 
GOTO  110 


100  K0NT»N0VRL^(7*NCAL.P)+NWCAL. 
JcNWCAL 
C 
C 


110'  00  150  M»1,J 
C 

IL*KONT+M 

C 

C 

IF(UASPRC  ,LT,  SSTIME ( 1 , ID )GOTO  150 
C 

IFfFRSPRC  ,CT,  SSTIME (2, ID )GO  TO  150 
GOTO  220 
150  CONTINUE 
200  CONTINUE 
C 

210 
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220  SOTO (970. 2 J0» 972,230, 2 JO# 230, R76, 977, 9f 8) 
230  PRTCIT«FRSPRC 
NUOOPaHAX  * 32 
DO  240  Nt«l,NLOOP 
IP(PRTEIT  ,0E,  SSTIMEd.ID) 

PRTEIT«FRTE8T  ♦ DEL 
240  CONTINUE 

250  PBNDxin,n«NL/J2  ♦ 1 
PPN0x2n,I)«NL/l4  ♦ 1 
PRN0X3(l,n«NL 
260  LASNXTiLASPRC^DELTHE 

IF(LA8NXT  ,LE,  8STIME(2,IL)) 

NCURR  ■ NLOOP  * 1 
00  950  KL*l,NtOOP 
LAINXT  ■ LA8NXT  « DEL 
NCURR  • NCURR  - 1 
IP(LA8NXT  ,CT,  S8TrHE(2,ILn 
PRNDXl(2,n  ■ NCURR/J2  ♦ 1 

PRNDX2(2,1)  * NCURR/16  ♦ 1 

PRNDX3(2,I)  ■ NCURR 

950  CONTINUE 
960  PRN0Xl(2,n  ■ 18 

PRN0X2(2,I)  » 36 

PRN0XJ(2,n  ■ S76 

970  L«IL 

972  L8IA8-IL 

976  LHEAT-IL 

977  L8NL»IL 


GOTO  250 
GOTO  260 


GOTO  960 


GOTO  950 


GOTO  200 


GOTO  200 
GOTO  230 
GOTO  230 
GOTO  230 


978  LNLN»IL 


GOTO  230 


9996  CONTINUE 


GOTO  230 


IP  (IIN(J)  ,GE,  0)  GOTO  1000 

call  POUMP(PRNOXl(l,n,PRNOXl(2,9),J,PBNOX2(l,l),PRNOX2(2,9),l 
* PRN0XJd,l),RRN0X3(2,9),l) 

1000  continue 


CA(.u  SEG( ' OKI  IQAEXEC.CGCI  , 0, 0) 
END 


$ 


ROUTINE!  CALLEDi 

*NOV  , ZERO  , POUMP  , SEC 

SWITCHES  ■ /0N,/8U,/C0 


BLOCK 

length 

main. 

737 

(002702)* 

OCARCN 

28 

(000070) 

INTNOX 

5 

(000012) 

OCDATA 

3993 

(017462) 

INPUT 

158 

(000474) 

PRNOX 

54 

(000154) 

TIMES 

522 

(001024) 

-»(*5>~— c J»J WWHHIBW IWIW-MW.*** 
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c* 

c*  LOAD  MODULE!  WVLRRO 

C* 


C 


C 

C 


C 

C 

C 

c 


DOUBLE 

DOUBLE 

DOUBLE 

DOUBLE 

double 

INTEGER 


PRECISION 
PRECISION 
PRECISION 
PRECISION 
PRECISION 
ANSTAT 


RTME,S3TIME,DSEC 

ASIM(),5), AO, Al, A2f XA4, VAa,SUMXA4,SQXA4 
ADETC4} 


SNUM, 
SUMXV, 


8NA4, 

SUMX2V, 


SUMX2, 

SNCHAN, 


SUHX3, 

XNA4 


SUMX4 


integer  ANCNTR.ANREC 
INTEGER  PRNOXl ,PRNDX2,PRNDX3 
DIMENSION  ADETC4),  NTABUF(SO) 
dimension  JCHN(3) 

DIMENSION  NCMAN(685),  As  IM ( J, S) , V ( 2 ) 
dimension  JCMPLT(2),KCMRLT(2),NA4(685),ITIM(2) 

COMMON  /PRNOX/  PRN0xI(2,9),PrNDx2(2,R),PRNDx3(2,P) 
COMMON  /ANDAT/  JP AR, NS AM, L AN, MAC T , AN8T AT ( 1 5) , KRET , 

ANCNTR(15)«ANREC(15)»TANCTR(i8),IRESFC, 
IWLFC,  IRAMFG, LINE, IPG 
/ A4CHNL  / lA4(b83! 


COMMON 
COMMON 
COMMON 
COMMON 
*« AyJ2, 


/ OCDATA  / MEASC3993} 

/WVLDAT/  JCMPLT(2),  LMTLO,  LMTHI 

/RESDAT/  NCMpLTf2),KCMPLT(2),NA*(665), NFsCN, NX, NS AMPL , Nix 
AVJ3,  AvJ5,  AvJb,SQYAa,3uMyA4, JiCNb,  IWLSCN 


•»  IP80K 
COMMON  /HISOAT/  IRMRLG,  IRSFLG, 

* ICLHOR,  IwLMOR, 

COMMON  /INPUT/  IIN(102),RIN(28) 
COMMON  / INTNOX  / L,  LBIAS,  LHEAT, 
COMMON  /SIXSV/  ISIX 
common  /times/  BJO,  SSTIME(2,65) 


IBVFLG, 

IDONE, 


InLFLG, 

IBVHOR 


LSWL,  LWLW 


equivalence  CIIN(22),1SVNC),(1IN(23),IEnD),(IIN(2«),ISM1N), 

> (IIN(2S),ISMAX) 

equivalence  {NCHAN,IA«),  (1IN(61), IwLLO),  CIIN(62),InLHI) 
data  JCHN  / 3,  5,  2/ 

**  START  SCAN  START/STOP  DETECTION  ** 

**  NFSCN  ■ I SAYS  NOT  LOOKING  FOR  VERY  FIRST  SCAN  *• 


IF  (IIN(3)  ,CE,  0) 

wRITE(6,2000) 

2000  FORMATdH  , 'ENTERING  WVLPRO') 

2001  IF(PRNDX3(1,9)  ,EQ.  0 .AND,  IwLMOR  ,EQ,  1) 
IF(JCMPLT(1)  ,EQ,  0) 

IF(JCMPLTn)  ,EO,  LWLW) 

IF(JCMPLT(2)  ,eq.  n 

JPAR«19 

LAN«l 

KRET«3 

NSAMaO 


GOTO  2001 


GOTO  3816 
GOTO  2010 
GOTO  2020 
OOTO  2010 


* 
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call  SEG( iOKl ianpro.lll' «2) 

2010  JCnPLT(l)«LWLt^ 

JCMPLT(2)*0 

2020  XF(JCMPLT(2)  .EQ,  1} 

2030  XL0aPRNDX3Ci»9) 
XMX«PRNDX1(2,9) 

XFdCMAN  ,GT,  X) 

XCHANal 

2100  XFCNFSCN  .EG.  DGOTO  2110 
NSAMPLal 


GOTO  3636 

GOTO  2030 
GOTO  3999 

GOTO  2100 


6*  SET  UP  MEAS  ARRAY  LOCATORS  FOR  ALL  fX^  CHANNELS  ** 

2110  XLLBXLO-1 

L0CAia520f XLL 

LOCA2al096*XLL 

L0CA3al672*XLL 

L0CAaa22ae^ILL 

L0CA5a2a24*tLL 

LOCAbajaoO^XLL 


**  NX  XS  THE  scan  sample  COUNTER  ** 


2120  NXaO 

XFdSTA  ,EQ,  n 


GOTO  220C 


*0  Check  channel  a6  for  sync  pulse  cisynC)  ** 


2130  iF(mEA8{LQCA6  + NX)  ,LT,  ISYNOqOTO  2160 
XSXXaXSIX^l 

XFCXSXX  .GE,  2)  GOTO  2160 

XF(NX-1  ,LT,  OJGOTO  2170 


**  Check  channel  a«  for  minimum  peak  count  (ienD)  ** 


XF(MEA8(L0CA«+CNX-U ) ,lT,  IEnO)  goto  2700 

**  Check  sync  pulses  on  other  channels  ** 

2140  IF(MEASCLOCAUNX)  ,LT,  ISYNOGOTO  2190 
XF(MEA8(L0CA2  + NX)  .LT,  ISYNOGOTO  2190 
XFCMEASCLOCAS^NX)  .LT,  ISYNOGOTO  2190 
XF(MEA8(L0CAI*NX)  ,LT,  ISYNOGOTO  2190 
GOTO  2500 

•A  CHECK  FOR  SCAN  TOO  LONG  (>  ISMAX)  a* 


2160  XSXXaO 

XFf (NSAMPLfNX)  ,GT,  XSMAX)GOTO  2300 
XTSTalLOfNXANIX-l 

XFdTST  ,GE,  IHX)  GOTO  2180 

170  NXaNXAl 
GOTO  2130 
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2180  1F(NF8CN  ,EO,0)COTO  3999 

**  MOVE  PART  OF  SCAN  TO  CH.  Aa  ARRAY  (NA4) 


C 

C 

C 


CAl,(,  AM0V(MEAS(l,0CA4),NAa(NSAMPt,)»NX) 

Z BACK* 1 
COTO(3850, 3900# 3950) ICHAN 
2185  N8AMPt»N8AMPt+NX 
NF8CN«1 
NZXbO 


C 

C 

C 


GOTO  3999 


C 

C 

C 


C 

C 

C 


**  Check  for  end  of  meas  array  or  data  period  ** 

2190  IF((NX*1)  ,GT,  IHDGOTO  2400 
IZaNX^l 
GOTO  22)0 
2200  IlaNX 

**  -hCCk  next  va),ues  in  other  Channels  for  sync  pulses  ** 

.LT,  ISYNOGOTO  2221 
IF(MEAS(L0CA2*II)  ,lT,  ISYNOGOTO  2222 
IF(MEA8(LOCA5fII)  ,LT,  ISYNOGOTO  2223 

ISYNOGOTO  2225 

GOTO  2500 

**  ANOMA1.Y  • BAD  SYNC  PULSE  ••  SCAN  NOT  REJECTED  ** 


C 

c 

c 


2221  LANs) 

GOTO  2230 

2222  LAN«2 
GOTO  2230 

2223  LAN>3 
GOTO  2230 

2225  LAN*5 
2230  JPAR«16 
NSAMsNx 
KRCT»3 

CALL  SEC( ‘OKI iaNPRO.LLL* #2) 
GOTO  2500 


**  PREVIOUS  SCAN  invalid  — ZERO  NA4  ARRAY  ** 

2300  CALL  ZERO(NA4 ( 1 } , 685) 

CALL  ZER0(NCHAN{ 1 ) , 685) 

N8AMPL«1 

**  ANOMALY  «—  bad  sync  PULSE  ON  CH,  A6  ** 

Nr  S C M ■ 1 

JPARS16 

NSAMsNX 

LANB6 

KRET*3 

CALL  8EC( lOKl ianPRO.LLL* ,2) 

GOTO  2170 
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C *<-  |N)0  OF  MEAS  ARRAY  -•  MOVE  GOOD  DATA  TO  NA4  ARRAY  ** 

2400  XSTAbI 

CAL!,  AM0V(MEA8(L0CA4),NAa(NSAMPL},NX) 

I84CK«2 

POTOC 1850,1900 » 3950) I CHAN 
2450  CONTINUE 


C 

c **  Check  for  correct  number  of  scans  ** 


c 

c 

c 


2500  IF(nF$Cn  ,E0,  0) 

IF ( (NSAMPL^NX)  ,6T, 
IF( (NSAMPL+NX)  ,LT, 
IPSOKai 
GOTO  2530 


ISMAX)GOTO  2510 
ISMIN)GOTO  2510 


**  anomaly  -•  scan  TOO  LONG  OR  TOO  SHORT 


2510  JPARalS 
NSAMbNX 
IPSOKbO 
NFSCNbO 


** 


GOTO  3999 


GOTO  2530 


LANbNSAMPL^NX 

KRET«1 

call  SEOt iOk J I ANPRO.LLL ' #2) 

ihi»ihi»nix 

c 

C **  check  for  first  CH,  A4  sample  less  than  50  PCM  CNTS  ** 

2510  I 1bLOCA4*NX41 

IF(MEA8(in  .LT,  50)GOtO  2560 
nfscnbo 
c 

C **  anomaly  ••  FIRST  SAMPLE  IN  A4  TOO  HIGH  ** 


JPARsie 

NSAMbNX 

LAN«2 

KRETil 

CALL  8EG( »0K1 iANPRO.LLL' #2) 
GOTO  2570 
2560  NFSCNbI 
C 

C **  IS  PREVIOUS  scan  OKAY?  ** 

c 

2570  iFdPSOK  ,EQ,  1) 

locaiblocaunx 

L0CA2BL0CA24NX 

L0CA3BL0CA34NX 

LOCA4BLOCA44NX 

L0CA5«L0CA5fNX 

L0CA6SL0CA6fNX 

NIXbNX 

NXbI 

NSAMPLbI 


GOTO  2580 


I 
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GOTO  2130 
C 

C *•  MOVE  MEA8  DATA  YO  ^H,  A<»  ARRAY  {NAaj 

C 

2SA0  CALC  AM0V(MEAS(C0CAa),NAa(N8AMPU),NX) 

IBACKa) 

GOTO (3850, 3000, 3<»S0)ICH AN 
2800  NXAitaN8AMPL«NX*l 
LOCAIbLOCAIyNX 
L0CA2aU0CA2YNX 
LOCA3«LOCA3yNX 
L0CA4BU0CAa«NX 
tOCASatOCAS^NX 
L0CA6BL0CA6YNX 
NXXBNX 
NXai 

NSAHPL«1 

C 

C **  JSCAN  a I INDICATES  PiRST  SCAN  OF  20  DETECTED  •* 

C 

JSCANBJ8CAN41 

GOTO  3810 

2700  CALL  ZCR0CNAU(1},685) 

CAU  ZER0(NCHAN(1)  ,885) 

IPSOKaO 

NFSCNaO 

NSAHPLal 

JPARbIS 

KRETbI 

NSAHaNX 

LANB2 

CAU  8EC(I0K1|ANPR0.LU',2) 

GOTO  2140 
C 



c*  determine  which  channel  is  being  used  (IC..AN  a ) * 

c* 

c************************ *********************************************** 

c 

C*««**«*  FIND  LOW  AND  HIGH  LIMITS  IN  A4  ARRAY  •* 

C 

3810  DO  3820  JaJ,NXA4 

1F(NA4(J)  ,GE,  IWLCO)  SOTO  3840 

3820  CONTINUE 
3850  LL»JCMPLT(1) 

D8ECaSSTIME(l,LL) 

CALL  ST0HMS(D8EC,ITIM,SEC) 

WRITE(8,3835)ITIM(1).ITIM(2),8EC 

3835  FORMATdH  * ERROR  - W/L  CAL  PERIOD  AT  ' , 15,  ' i ' , 12,  ' f ' ,F7, 

14,'  NO  A4  LOWER  LIMIT  FOUND  * t * * *') 

IF(NIX  ,LT,  IMI)  SOTO  2130 

GOTO  3RR9 

C 

C********  HIGH  LIMITS  ** 
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3640  iMTLOaj 

IF  (IXN(3)  .CE.  0} 
WRITC(b*4000)lMTLO 

3641  CONTINUE 

DO  36S0  J*3,NXA4 
IFCNA4U)  .CE.  ZWLHI) 

3650  CONTINUE 
3660  LL«JCMPLT(n 

DSECBSSTIHEClfUL) 

CALL  8T0HM8(DIECiITIM»SCC) 
WRlTE(6.3665)ITlHn),  ITIN(2}>SEC 
3665  FoRMATCIH  ,1*  • * * * ERROR  - M/L 


GOTO  3641 


GOTO  3670 


14,1  NO  A4  upper  LIHIT 
IP(NIX  .LT.  IMI) 


FOUND 


CAL  PERIOD 

* *') 


AT' » 15, • I ' , 12, ' I ' »F7. 


FIND  PEAK  value  in  a4  ARRaV  *• 


GOTO 

GOTO 


2130 

3996 


3670  LMTHI'J 

IP  (IIN(S)  .GE.  0) 
WRITE(6,4001)LMTHI 

3671  CONTINUE 
IPK4«NA4(NXA4) 

DO  3680  I«3,NXA4 
IF(NA4(1)  .LE.  1PK4) 
IPK4sNA4(n 

3680  CONTINUE 

IF  (I1N(3)  ,GE.  0} 
HRITE(6,4002)IPK4 

3681  CONTINUE 


GOTO  3671 

GOTO  3680 
GOTO  3681 


:••*•**•*  TE8T  IELECTEO  CHANNEL  ARRAY  FOR  SATURATED  DATA  ** 

3700  ITE8T-0 

DO  3720  KaLHTLO,LHTHI 

IF(ITE8T  .EG.  0)  GOTO  3705 

ISATa999 

GOTO  3710 

3701  I8AT«949 
3710  ITEITslTEIT*! 

IF(NCHAN(K)  .GT.  I8AT)  GOTO  3725 

3720  CONTINUE 

GOTO  3740 

3725  ICHAN«ICHAN«1 

IFCICHAN  .GT.  3)  GOTO  3730 

ITE8T«0 

NFICNaO 

GOTO  2100 

3730  JPARal9 

NSAHaJCHPLTd) 

LANaO 

KRCTa3 

CALL  8EG(i0K||ANPR0.LLL',2) 

JCHPLT(2)al 

GOTO  3996 


Find  upper  and  lomer  lihits  in  selected  channel  ** 
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3740  XRANbNCHANCLMTLO) 

IF  (IIN(J)  ,GE,  0) 

WR2TE(6,4003)IRAN 

3741  continue 

00  5745  K«LMTLO»l.MTHI 
IF(NCHAN(K)  ,LE.  IRAN) 

JLO«K 

IRANsNCHAN(K) 

3745  CONTINUE 

IF  (IIN(3)  ,5E.  OJ 
WRITE(6,5746) JLO, IRAN 

3746  RORMATdM  ,«JLO  9*, Is,*  IRAN  •»,I5) 
3751  IT0P»LMTH1-LMTL041 

IF  (IIN(3)  ,GE,  0) 

WRITE(6,4004) ITOP 
3756  CONTINUE 
I»LMTHI+1 
00  3760  K«1,IT0P 
IF(NCHANd-K)  ,EQ,  IRAN) 

3760  CONTINUE 


3765  JHI«I»K 

IF  (IIN(l)  ,GE.  0) 
WRITE(6,4005) JHI 
3770  INEW«IRAN/2 
I«JtO 

I8T0P»JL0-LMTL0 
00  3775  K»1,IST0P 
IF(NCHAN(I.K)  ,LE,  INEw) 
3775  continue 
JPARbIS 

nsam»lmtlo 

LAN.5 

KRET«3 

CALL  SECf «0K1 I ANPRO.LLL • ,2) 
IF(NIX  .LT,  IMI) 


: 3780  KLO«I*K 

■ IF  (IIN(3)  ,6E,  0) 

f.  WRITE(6,4006)KLO 

I 3781  CONTINUE 

00  3785  K«JL0,LMTHI 
IF(NCMAN(K)  ,LE.  INEW) 

3785  CONTINUE 
JPARalS 
NSAM«LMTL0 
LAN«6 
KRET«3 

CALL  SEG( lOKl iANPRO.LLL* #2) 
IFCNIX  ,LT,  IHI) 

3790  KHIaK 
IF  CIIN(3)  ,6E,  0) 
WRITEC6,37P1)KHI 

3791  FORMATCIH  , IKHI  ai , 15) 
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GOTO  3741 
GOTO  3745 
GOTO  3755 
GOTO  3756 

GOTO  3765 
GOTO  3770 
GOTO  3770 

GOTO  3780 


GOTO  2130 
GOTO  3999 

GOTO  3781 
GOTO  3790 


GOTO  3792 
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3791  CONTINUE 

IFCKLO  ,CT.  LMTLO) 

JPARSI8 

NSAM«LMTtO 

LANb4 

KRET»3 

CALL  8EC( 'OKI  I ANPRO.LLL* »2) 
IF(NIX  .LT.  IHI) 

3795  IF(KHI  .LT.  LMTHI) 

JPARaie 

NSAMtLMTLO 

LAN»3 

KRET»3 

CALL  SCG(i0Kl|ANPR0,LLL'i2) 
IF(NTX  .LT.  IHI) 


GOTO  379J 


GOTO  2130 
GOTO  3999 
GOTO  3600 


GOTO  2130 
GOTO  3999 


3800  INUMbKHI»KL041 

IF  (IIN(3)  ,GE,  0) 
WRITE(6,a007)INUM 

3801  CONTINUE 
IF(INUM  .LT.  6) 

IFdNUM  ,6T.  10) 

3605  LANcS 

3810  LAN«7 
3611  JPARaie 

NSAMaLMTLO 

KRETaS 

CALL  SEG( 'OKI  I ANPRO.LLL' i2) 
IFCNIX  .LT.  IMI) 


3611 


SNCHANaO, 

SNA4a0, 

SUMXyaO. 

SUMXEYaO, 

8UHX2aO. 

SUMX3aO. 

SUHXaaO. 

00  3616  LiKLOf  KHI 
SNCHANaSNCHAN4'NCHAN(L) 

XNAaaNAa(L) 

8NAtiaSNA44XNAA 
8UMXYa8UMXY^(NCHANCL) *KNA«) 
8UMX2YaSUMX2Y+{  (XNA«**2)*nCHAN(L)  ) 
8UHX2S8UMX2* (XNA9**2) 
8UHX3«8UMX3^CXNA:i**3) 
8UMX4a8UHXa*(XNAU**a) 


i^EPRODUCIBILITY  OF  THE 
JillGiNAL  PAGE  IS  POOR 


SNUHaJNUM 
IF  (IIN(3)  ,GE.  0) 

CALL  P0uMP(8UMX2Y,SUMX2Yi «) 
CALL  POuMPCXNA«,XNA4,a) 

CALL  P0UMP(8NA4,SNAa. a) 

CALL  P0UMP(8UMXY,8UMXY,a) 
call  P0uMP(8UHX2Y, 8UHX2Y.4) 


GOTO  3801 


GOTO  3805 
GOTO  3810 
GOTO  3815 

GOTO  38*  I 


GOTO  2130 
GOTO  1999 


GOTO  181^1 
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CALL  P0UHP(8UMX2,8UMX2,<O 
CALL  P0UMP(8UMX5,SUHX3,«) 
call  P0UMP(8UMX4,8UMX«,4) 
call  P0UMP(8NUM,SNUM,4) 

CONTINUE 


27-JUL-76 


SET  UP  ARRAY  'A'  POR  81HEQ  SUBROUTINE  ** 


ASIH(l»nB8NUH 

ASIM(1,2)6BNA4 

ASIM(l,3)a8URA2 

ASIM(l«tt)aSNCHAN 

A$IM(2i 1)68NA4 

AIIM(2«2)a8UNX2 

ASIM(2i3)«8UHX3 

A8IH(2|tt)a8UNXY 

A8IM(l,l)a8UNX2 

A8IN(3»2)>8UHX3 

AIIH(3«l}aSUMX4 

ASIM(3»4)«8UMX2Y 

IP  (IIN(3)  ,GE,  0) 

CALL  PDUMP(A8IN( I |l},ASIN(lfS)»5) 
CONTINUE 


SOTO  3817 


**  SOLVE  The  simultaneous  equations  por  the  Parabolic  best  pit  • 

DO  3S1S  lOETaiiU 
J ■ 1 
L ■ 2 
N • 3 

IP  (lOET  ,EQ,  2)  J«4 

IP  (lOET  .EO,  35  L»« 

IP  (lOCT  ,EQ,  «)  N«a 

AOET(IOET)  • (AslMd.  J)**SlM(2»L)**8lM(3»N)5  ♦ 

* (A8IM(2,J)*ASIM(3,L)*A8IMn,N)5  ♦ 

* (ASIM(5, J5*ASIM(1,L5*ASIM(2,N))  - 

* (ASIMU,  J)*A8IM(3,L)*ASIM(2iN))  - 

* (ASIMC2, J)*AsIM(1,L)*A8IM(3,N)5  • 

* (ASIM<3,J)*A3IM(2,L)*ASIM(1,N)5 

381S  CONTINUE  GOTO  3119 

IP  (IIN(35  .St,  0) 

CALL  POUMP(ADET(l),AOET(«),55 
1819  CONTINUE 


CALCULATE  AO 


AO  ■ A0ET(2)  / ADET(l) 


* CALCULATE  A1 


A1  ■ A0ET(3)  / AOET(l) 


CALCULATE  A2 
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A2  ■ AOET(a)  / AOET(l) 

IF  (IXN(l)  ,GE,  0) 
call  POUMF(AO# A0i5) 

CALU  P0UMP(AI,A1,5) 

CALL  PDUHP{Al» A2,5) 

DO  3823  JE8T«KL0,KHI 
X*a  ■ NA«(JE8T) 

YAa  ■ AO  ♦ (Al  * XAU)  ♦ (A2  * (XA«**2)) 
WRITE  (6,4010)  NA4CJEST),NCHAN(JEST),VA4 
CONTINUE 


goto  3824 


XA4»«1*{ A1/(2«A2) } 

XA4«(XA4*883,)/IPH4 

VA4«A0+(AI*XA4)+(A2*(XA4**2)) 

IF  (IIN(3)  ,CE.  0) 

WRITE(4,3825)XA4,VA4 

FORNATCIH  ,>XA4  ■•,022,14,'  YA4  •',022,14) 
CONTINUE 

SUMXA4aSURXA4«X  A4 
SQXAttB|0XA4« 'XA4**2) 

IWLSCN«IHL8Cm*1 


goto  3826 


DO  WE  HAVE  TWENTY  SCANS  OF  OATA  ** 


IF(IWL8C.N  ,GE,  20) 

IF  CIIN(3)  .CE,  0) 

wRITE(6,lll)l*'L8CN 

F0RM*T(1H  ,'IwL8CN  ■',15) 

CONTINUE  goto  2130 

IF(N1X  ,LT.  IMI)  “ 

S080^( (I«L8CN*80XA4)-(SUMXA4**2) )/( (IWLSCN-I )*IWL8CN) 

SOWLaSORT (SOSO) 

AyEWLs8UHXA4/IWLSCN 


STORE  A4  PCM  VAULE  AVERAGE  (AVEWL),  8TO,  OEV,  (SOWL)  *ND 
CHANNEL  IDENTIFIER  (ICHAN),  ** 


CALL  ZERO(NTABUF(1),50) 

NTABUF(l)a22 

INTNUM«AvEWL 

BFRAC»AvEwL»INTNUM 

IFRACwRFRAC*10000 

NTABUF(2)wINTNUM 

NTABUF(3)«IFRAC 

INTNUM«80WL 

RFRAC«80WL»INTNUH 
IFRACwRFRAC*10000 
NTABUF (4)«InTNUM 
NTABUF(5)wIFR*C 
NTABUF(6)6JCHN(ICHAN) 

CALL  NTRAN(12,1,50,NTABUF(1)) 
call  NTRAN(12, 15,L8TaT) 
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IF (L8TATfl)3832» 3831,3833 

3832  LULUI12 
WRm(6,40U)LULU,l8TAT 

3833  IMIH0R«0 
IWLFLC»1 

IF  CIIN(3)  ,CE,  0) 

WRITE(6,3835)S0WL,AVEWL 

3835  FORMATHH  ,«SDwL  «',Fl5,8,i  AVEwl  ■',F15,8) 
1007  CONTINUE 
ICHANsO 
IMLSCN*0 
SUMVA4>0. 

SQVAasO, 

ITEST«0 

SNCHANsO, 

SNA4«0, 

8UHXV»0, 

8UMX2V«0, 

SUMX3«0 

SUMXtiBO 

JCMPLT(2)»1 

NFSCNsO 

NXbO 

nsamplbo 

NIXbO 

IPSOKsO 

IMLHORbO 

iwlfugbi 

CALL  ZERO(NCHANn  ) , 685) 


3836 


3837 

3638 


CALL  ZERO(NTA3UF(1),50) 
NTABUF(1)«22 

call  NTRANn2,l,50,NTABuF(lJ) 
CALL  NTRAN(12, 15,LSTAT) 

IF (L8TAT+ 1)3838, 3837, 1007 
LULU»12 

WRITE(6,4011)LULU,LSTAT 


3850  CALL  AM0V(MEaS(L0CA3) , NCHAN(NSAMPL) , Nx) 
GOTO (2  185,2480, 2600 ) IBACK 
3900  CALL  AM0V(MEaS(L0CA5) ,NCMANCN8AMPL) ,NX) 
GOTO (2 185, 2410, 2600) I BACK 
3950  CALL  AM0V(MEA8{L0CA2),nCHANCNSAMPl),NX) 
0070(2185,2450,260  0) I BACK 

3999  IF  (IIN(3)  ,GE.  0) 

WRITE (6, 4009) 

4100  CALL  8EG( 'OKI iQAEXEC.GCG* ,0»0) 

4000  FORMATMH  ,»LMTL0  ■ 1,15) 

4001  FORMATdH  ,»LMTMI  • i,I5) 

«002  FORMATCIH  ,'IPK4  »',15) 

4003  FORMATdH  ,»IRAN  «',I5) 

4004  FORMATdH  ,'ITOP  *»,I5) 

4005  FORMATdH  , • JHI  ■'  ,15) 

4006  FORMATdH  ,»KLO  «*,I5) 

4007  FORMATCIH  ,»INUM  b^IS) 


11 


GOTO  4500 


GOTO  1007 


GOTO  3999 


GOTO  4500 


GOTO  4100 


I 
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aOOt  FORMATOH  , 'LEAVING  WVLPRO') 

aolo  formatuh  ,»Aa  value  • i la, « y-axisi actual  value  «»ia, 

* 'y«AXX8lESTlMATED  VALUE  >,022.14) 

4011  FORMATdHO, 'NTRAN  WRITE  ERROR  ON  UNIT',14,'  STATUS  W0R0',X4) 
4500  CALL  SECRET 
END 


ROUTINES  CALLED! 

8EG  , AMOV  , ZERO  , ST0HM8,  POUMP  , SORT  , NTRAN 

secret 

8MITCHES  • /0N,/8w,/C0 


BLOCK 

length 

MAIN. 

4090 

(017764)* 

PRNDX 

54 

(000154) 

ANDAT 

91 

(000266) 

A4CHNL 

665 

(002532) 

dcdata 

3993 

(017462) 

wvldat 

4 

(000010) 

RESDAT 

708 

(002610) 

HISDAT 

6 

(000020) 

INPUT 

158 

(000474) 

INTNDX 

5 

(000012) 

SIX8V 

1 

(000002) 

TIMES 

522 

(002024) 

♦^COMPILER  - 

••••  CORE** 

PHASE  USED  FREE 
DECLARATIVES  04765  12501 
EXECUTABLES  05431  11835 
ASSEMBLY  03902  16681 


M 

SEOD 

SFI 

TlMEl-l7l49iOR 


* t 

SJOB  linker ISOOrOOB]  J 

0ATCI-2T-JUL-T*  , : 

TlMEi*l7lR9l IR  ] 

SRUN  link  ] 

KlMH»Sr.BM.LM,OKl,ST.IT»*OKl,l)CHBUI'.OBJCJOO,00«)/»U«llOOO/t 


i 


I 
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load  Ma^  OCMBUF.DAI  \7tU9tm 


transfer  ADOrEsSI  000001 
LOW  LZMITi  laoooo 
high  LIMIti  157462 


MODULE  DATA. 
SECTION 

*,  AB8.» 

< k 

<0CDATA» 


ADDRESS  SIZE 
000000  000000 
140000  000000 

140000  017462 
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LINK  VMAOl 
EOO 

RUN  link 
INK  VUAOl 

OKI  lOAlf 1H,L0A,LP|  ,DK1  |8T,ST0<OKl I ST, STB  (300 # 001) 

OKI |QA191H,0BJ  CJ0O,006l 
OKI IGLOBLS.OBJ  C300,006} 

OKOl  ABEC.OBJ tlOO, 100] 

OKOl  CVP.OBJ  (100, lOOJ 
DKOl  field, OBJ  (100, lOOJ 
OKOl  FLD.OBJ  (100, lOOJ 
OKO: J0ATE2.0BJ (100, 1001 
OKOl  mask, OBJ  (100, 100] 

OKOl  MSK, OBJ (100, 100] 
DKOINTRANO.OBJ  (100,  100] 

* DKOI8ECOUT,OBJ (100, 100] 

DkOI8ECRE8,OBJ(100,100J 

' OKOISETEMT, OBJ  (100, lOOJ 

* 0K0|STALPH,0BJ.(100, 100] 

' OKO|8TOMM8,03J(100, ICO] 

' 0K0iFTNLXB,0BJ(1,1J/L/Ti57776/E 


+% 


I 

I 


JSC-10140 


LOiO  M*P  8*lftH,L0* 


l^lSOiU  JT-JUL-7* 


COM  LiHiri  0iUS72 
NIOH  tiMiTl  057776 


HOOULI  0*7*. 
SECTION 

*.  AB8,» 

< > 
<OCO*T*> 


*OORESS  SIZE 
000000  000000 
160000  000000 
160000  017662 


HOOULE  M*In, 
SECTION 

* » 

MAIN. 

<*6CMNL* 
<*N0*T  » 
«C*tRT  » 

<cmpcet> 

<NVLO*T> 

<L*8ErM» 

<HI80*T* 
<ai*o*T» 
<oc*rgn» 
<error  » 
«eld*t  * 

<1NPUT  > 
<INTNDx> 

<RRNOx  * 

<Q*0*T  » 
<RECPTR> 
<RE00*T» 

<S*VE  » 

<SIXSV  > 

<TIME8  > 
<TITLE8* 


module  globls 

SECTION 

< » 

MODULE 

CNV 

SECTION 

< 

> 

|ABEC 

MODULE 

CVP 

section 

< 

CVP 

MODULE 

eield 

SECTION 

> 

R*CK 

MODULE 

7L0 

SECTION 

> 

tELO 

MODULE 

J0*TE2 

*D0RES8  SIZE 
026J72  000550 

026372 

025162  002532 

027676  000266 

030162  000006 

030170  000006 

030176  000010 

030206  000010 

030216  000020 

030236  000116 

030350  000070 

030660  000050 

030510  000010 

030520  000676 

031216  000012 

031226  000156 

031602  000012 

031616  000002 

031616  002620 

036236  000102 

036360  000002 

036362  002026 

036366  000100 


*OORESS  SIZE 
036666  000000 

730605 

*ODRE8S  SIZE 
036666  000706 

036666 


721227 

*OORESS  SIZE 
037376  000136 

037376  8RCVP 

721227 

*ODRESS  SIZE 
037532  000126 

037532  UNP*CK 

730605 

*ODRESS  SIZE 
037656  000566 

037656 


037376 


037606 
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StCTION 

< > 

JD*Te2 

address 

040R42 

040442 

Sl^C 

001496 

MOOULC  MASK 
SECTION 

« > 

MASK 

73010S 

ADDRESS 

042120 

042120 

SIZE 

000030 

MODULE  M8K 
SECTION 
< » 

.MASK 

T3040S 

ADDRESS 

0421S0 

0421S0 

SIZE 

000140 

MOOULC  NTRAND 
SECTION 

< > 

BLKITS 

LNKtBS 

SEBLKI 

7S0106 

ADDRESS 

042J10 

04S472 

042310 

043140 

SIZE 

001330 

SLKMXS 

LOCRCS 

TRNTSS 

043430 

043934 

042624 

PLBLKI 

LU8T4T 

043416 

043976 

MOOULC  SECOUT 
SECTION 
< » 

REMAP 

ADDRESS 

043640 

044062 

SIZE 

000264 

SEGOUT 

043640 

MOOULC  SCORES 
SECTION 

< » 

NEWMMC 

SEC 

ADDRESS 

044124 

044246 

044192 

SIZE 

000360 

SAVCI 

segeno 

044146 

044396 

SAVC2 

SCGRET 

044190 

044370 

MODULE  8CTCMT 
SECTION 

< » 

SETCMT 

730119 

ADDRESS 

044904 

044904 

SIZE 

000162 

MODULE  STALPH 
SECTION 

< > 

STASC 
ST. no 
sr.Hts 

ST. TWO 

721209 

ADDRESS 

044666 

049216 

049022 

049092 

049106 

SIZE 

000910 

stbcd 

ST, 610 
ST. ONE 
ST. 32k 

049306 

049096 

049076 

044666 

STCSC 

8T.M14 

ST.PIO 

ST.64K 

049126 

049016 

044676 

049116 

MOOULC  STOhmS 
SECTION 
< » 

STOhmS 

ADDRESS 

049376 

049376 

SIZE 

000132 

MODULE  SPRPol 
SECTION 

< » 

SPOPPJ 

ADDRESS 

049930 

049930 

SIZE 

000012 

MOOULC  8POI02 
SECTION 

< > 

SPOPl 

ADDRESS 

049942 

049942 

SIZE 

000004 

SP0P2 

049942 

MODULE  SPOPol 
SECTION 

< > 

SPOPJ 

SPOPUS 

ADDRESS 

049946 

049962 

049990 

SIZE 

000020 

SP0P4 

1P0P9 

049946 

049946 

SP0P4A 

049994 
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MODULE  SGET03 

SECTION 

ADDRESS 

SIZE 

< » 

ObSSbb 

000020 

SGETl 

0bSb02 

SGET4 

OaSSbb 

HOOULE  SPUTQ} 

SECTION 

ADDRESS 

SIZE 

< > 

OUSbOb 

000012 

SPUTl 

OR^btti 

$PUT« 

OttSbOb 

MODULE  SiSPOb 

section 

address 

SIZE 

< > 

04Sb20 

000022 

S*SP 

ObSb20 

SPOPRl 

0U5b36 

MODULE  1*0103 

SECTION 

ADDRESS 

SIZE 

< > 

04SbU2 

OOOOIR 

S*DI 

0USba2 

MODULE  SCMIOl 

SECTION 

address 

SIZE 

< > 

ORSbSb 

OOOOOR 

SCMI 

OUSbSb 

MODULE  SSBIOi 

SECTION 

ADDRESS 

SIZE 

< * 

0USbb2 

OOOOOU 

SSBI 

0USbb2 

MODULE  STRX02 

SECTION 

address 

SIZE 

< » 

OUSbbb 

OOOORU 

STRX 

OtiSbbb 

MODULE  ITBOl 

SECTION 

address 

SIZE 

< > 

0«5732 

OOOOOU 

ITR 

0U5732 

MODULE  SADJ03 

section 

address 

SIZE 

< » 

0«573b 

000040 

S*DJ 

ei573b 

MODULE  ITHT02 

SECTION 

ADDRESS 

SIZE 

< > 

0US77b 

000014 

STRT8T 

0«577b 

MODULE  SSVPOl 

SECTION 

address 

SIZE 

< > 

0Ub0t2 

000010 

SSVP 

0ub012 

MODULE  ISVEOJ 

section 

ADDRESS 

SIZE 

< » 

0U6022 

000004 

SSVF. 

0ab022 

MODULE  SEOOOS 

SECTION 

address 

SIZE 

< > 

04b02b 

000034 

SGET2  0US602  SOET} 

SCETS  045S*6 


$PUT2  0«56U  1PUT3 

SPUTS  04Sb0k 


SPOPPl  0«562a  SP0PP2 

SPQPR2  0USb3b 


-10140 


0U557b 


0ttSbl2 


0USb2b 
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seNooo 

046026 

MODULE  SGLEOl 
SECTION 

< > 

SEQ 

SLE 

address  size 

046062  0000)2 

046072 

046062 

SCE 

SLT 

046104 

046064 

SUT 

snE 

module  SLC002 
SECTION 

< > 

SLCO 

address  size 

046114  000076 

046114 

MODULE  SIC002 
SECTION 

< * 

sico 

address  size 

046212  000272 

046220 

SOCO 

046212 

module  S0C004 
SECTION 

< > 

soco 

scco 

address  size 

046504  001614 

046516 

046504 

SECU 

0A6546 

SECO 

MODULE  SLCIOI 
SECTION 

< > 

SLCI 

address  size 

050)20  000076 

050)20 

MODULE  S1CI02 
SECTION 

< > 

SICI 

address  size 

050416  000)04 

050424 

SOCl 

050416 

MODULE  SOCIOt 
SECTION 

< » 

SDCI 

address  size 

050722  001400 

0507)0 

SRCI 

050722 

MODULE  S1UD02 
SECTION 

< > 

SIOUO 

address  size 

052)22  000042 

052)22 

MODULE  SIRD02 
SECTION 

* » 

SlORD 

ADDRESS  SIZE 
052)64  000062 

052)64 

MODULE  S10EC6 
SECTION 

< > 

SIOERR 

address  size 

052446  000216 

052564 

side 

052446 

SIOEX 

MODULE  SSTOOS 
SECTION 

< > 

SSTOP 

ADDRESS  SIZE 

052664  000024 

052664 

MODULE  1N*M0T 
SECTION 
< > 

snam 

address  SIZE 
052710  000110 

052710 

SRET 

052766 

MODULE  SMOD02 
SECTION 

address  size 

046102 

046110 


046S12 


0S2SS6 
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< > 

MOO 

055020 

055020 

OOOOOO 

MODULE  SINT02 

SECTION 

address 

SIZE 

« > 

lOINT 

055060 

055060 

000026 

MODULE  SEL’02 

SECTION 

address 

SIZE 

< > 

FLOAT 

053106 

055106 

000020 

MODULE  SAM002 

SECTION 

address 

SIZE 

< » 

AMOO 

055126 

055126 

000056 

MODULE  STSI05 

SECTION 

address 

SIZE 

< > 

STSB 

STSR 

055200 

055220 

055210 

000002 

MODULE  SSBSOB 
SECTION 

< > 

SSBSt 


MODULE 

SECTION 

< 

SMLI05 

> 

imli 

module 

1MLR05 

section 

< 

> 

IMLR 

module 

SIROO 

SECTION 

< 

> 

Sic 

module 

SOVROS 

section 

< 

SDVR 

module 

SDVI05 

SECTION 

< 

> 

SOVI 

MODULE 

SANT03 

SECTION 

< 

> 

AINT 

module 

SAOROO 

SECTION 

< 

> 

SADR 

MODULE  JHlOU 
SECTION 


tOORESS  SIZE 
0S32U6  000106 

0S32U6 


address  size 
05555a  00002U 

055550 


address  SIZE 
055000  000012 

055000 


address  size 

055012  000016 

055012 


address  size 

055030  OOOOlO 
055050 


address  size 

055OOO  000026 
055000 


address  size 

055072  000002 

053072 


address  size 

055550  000016 

055500 


address  size 


SSBS2 


SiD 


SINTR 


SSBH 


055060 


055200 


055250 


055012 


055510 


055550 


STSI 


SSBS5 


SIR 


055250 


055262 


055016 
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< > 

SDI 

053552 

053552 

000016 

MODULE  irPROI 

SECTION 

address 

SIZE 

< > 

SFPERR 

053570 

053570 

000126 

MODULE  SPOLOT 

SECTION 

address 

SIZE 

< > 

IFPU 

053716 

053722 

000006 

MODULE  1PPR0« 

SECTION 

ADDRESS 

SIZE 

< > 

SP0PR3 

053T22 

053736 

000020 

MOOUlt  SPHR07 


SECTION 

address 

SIZE 

< > 

053762 

000012 

SPSHRl 

053750 

SPSHR6 

053762 

MODULE  SERR15 

SECTION 

address 

SIZE 

< > 

053756 

001060 

SERR 

053756 

MODULE  SRDM03 

SECTION 

address 

SIZE 

< > 

055016 

000160 

SRANDM 

055016 

MODULE  STRC06 

SECTION 

address 

SIZE 

< > 

055156 

000276 

STRCBK 

055156 

MODULE  S0TV06 

section 

address 

SIZE 

< > 

055652 

000032 

SERRMK 

055666 

SOTSV 

055652 

MODULE  SERCOS 

section 

ADDRESS 

SIZE 

< > 

05550m 

000126 

lERRC 

055506 

MODULE  SEXTOS 

SECTION 

address 

SIZE 

< > 

055630 

000036 

EXIT 

055630 

MODULE  ICLPOl 

SECTION 

address 

SIZE 

< > 

055666 

000072 

ICLSUP 

055666 

MODULE  SFDV05 

SECTION 

address 

SIZE 

c > 

055756 

000060 

SFNOEV 

055756 

MODULE  SCLS06 

SRI  053556 


SROLSH  053716  SV20* 

SPOPRtt  053722  3P0PR5 

SPSMR2  053750  1PSHR3 

IPSHrS  0537^2 

SERB*  05376U  SRTS 


SEXSB  O55«60  SN*MC 

ISEQC  055«62 


SERRP  055616 


SEXIT  055630 


053716 


053722 


0537U6 


OSUlSU 


055U60 
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V 


leCTlON  ■ 

ADDRESS 

( > 

OSSOU 

SCL08E 

OSSOU 

400ULE  SISTOS 

SECTION 

ADDRSSS 

c > 

056122 

SIOSET 

056122 

********** 

»100UIE  SOVBOR 

750106 

SECTION 

ADDRESS 

< > 

056300 

SDEVTB 

056322 

HOOULC  SIBF02 

SECTION 

ADDRESS 

* > 

057530 

SIOBUF 

057532 

UNOCFINCD  RCFERENCeS 
.SHIFT 


'Size 

oooloa 

tCUSe  0S60S2 


SIZE 

0001S6 


SIZE 

001230 


SIZE 

ooozas 
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W322  000000 
LINK  VllAOl 

« 

SEOO 

SRUN  LINK 
LINK  VlMOl 

«DKt lCONDRV,KFF<DKl I 8T, STB  (300,0061 
« OKI iCONDRV, OBJ (300,006] 

• DKllBLKOAT, OBJ (300,0061 

« OKOlCONINP. OBJ (100, 1001 /CC 

0 OKOIHMSTOS.OBJ (100, 100] 

« OKOiFTNLIB.OBJ (1, 11 /L/BI60000/E 


TRANSFER  AOOR&SSi  060000 
LOW  LIMITi  060000 
HIGH  LlNITl  116336 
LINK  VlUOl 

« 


SEOO 

SHUN  link 
LINK  VllAOl 
• DKnOFEXEC,GCC<DKl  I 

« 

» 

M 


ST. STB  (300,0061 

OKllOAEXEC.OBJ(3OO,006] 

OKOI  AMOV.OBJ (100, 100] 

OKI iDATDCN.OBJ (300,0061 
DKOl  NTRAN, OBJ (100,  1001 
DKOl  ZERO. OBJ (100, 1001 
OKOIFTNLIB.OBJ  (1 , 1]  /L/BI60000/’E 


TRANSFER  AOORESSi  060000 
LOW  LIHITI  060000 
HIGH  LIHITi  106650 
LINK  VllAOl 

« 

SEOO 

SRUN  link 
LINK  VllAOl 

• OKI lERRDRV.HHHKDKl I ST. STB  (300,006] 

• OKI  lERRORV.'JBJ  (300,0061 

• OKOiERRRRC. OBJ (100,  1001 

« DKOl  NTRAN. OBJ (100,  1001 

• OKOlTERMIT. OBJ (100, 1001 

« OKOIFTNLIB.OBJ (I, 11  /L/B I 600  00/E 


TRANSFER  AOORESSi  060000 
LOW  LIHITI  060000 
HIGH  LlNlTl  113700 
LINK  VllAOl 

lEOO 

SRuN  link 
.INK  VllAOl 

• OKI lOCHDRV. IIlKOKl  I ST. STB (30  0, 0 061 

I OKI  iDCwORV. OBJ (300,0061 

• 0K0I0C0M2N. OBJ (100,  1011 /CC 

t DKOl  NTRAN. OBJ (100, 1001 

, OKOI  TPI .OBJ (100, 1001 

I DKOl  DFO. OBJ (100, 1011 

I OKOiFTNLIB.OBJ (1,11/L/B|60000/E 


RANSFCR  AOORESSI  060000 
.OW  LlHlTl  060000 
‘IGH  LlNITl  133516 
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tlNK  VlUOl 

M 

«EOO 

|RUN  LINK 
LINK  ViUOl 
«OKlirLDKNO,JJJ<OKi| 

« 

# 

TRANSFER  ADDRESS!  OSOOOO 
LOW  LIHITi  060000 
NICM  LIHITi  070T10 
LINK  VUAOi 

t 

SEOO 

SPUN  LINK 
LINK  VUAOI 
6DK1iBIAPR0,KKK<DK1  I 

• 

• 

a 

a 


ST .STB  tlOO*  006] 

DKl  iFlOPRO.OBJ (300 >0061 
DKOI  NTRaN.OBJ (lOOf 100] 
DKOiFTNLIB.DBJ  tl, n /L/BIBOOOO/E 


ST, STB  (300,006] 

DKl  IBIAPRO.DBJ (300,006] 

DKOi  ZERO. OBJ (100, 100] 

DKOl  AMOV, OBJ (100, 1001 
OkOI  NTRAN.OBJ  (100, 100] 
OKOIFTNLIB.OBJ (1, 11 /L/BI60000/E 


transfer  AOORESSi  060000 
LOW  LIHITI  060000 
HIGH  LIHITi  106360 
link  VllAOl 

a 

SEOO 

SPUN  link 
LINK  VllAOl 
aOKli  ANPRO,LLL«Dki I 

a 
a 
a 


ST, STB  (300,006] 

OKU  ANPRO, OBJ  [300,006] 

OkOi  AHOV. OBJ  (100, 1001 
OKOiFTNLIB.OBJ (1,11 /L/BibOOOO/E 


transfer  AOORESSI  060000 
LOW  LIHITi  060000 
HIGH  LIHITi  107476 
LINK  VllAOl 

a 

SEOO 

SPUN  LINK 
LINK  VllAOl 
aOKl iwVLPR0,mmm«0K1 I 

a 
a 
a 
a 
a 


ST. STB  (300,0061 

OKI  iwVLRRO. OBJ (300,006] 

OKOI  AMOV. OBJ (100, 100] 

OKOI  ZERO. OBJdOO, 100] 

OKOI  NTRAN.OBJ (100, 100] 
OKOiFTNLIB.OBJ (1 , 1] /L/Bl 60000/E 


transfer  AOORESSi  060000 
LOW  LIHITi  060000 
HIGH  LIHITi  11*440 
LINK  VllAOl 

a 

SEOO 

SPUN  link 
link  VllAOl 
aOKi |RFHPR0,nnn«DK1 i 


ST. STB [300,006] 

OKI iRamprc.OBJ (300,006] 
OKOI  ZERO. OBJ [100, 1001 
OKOI  AMOV. OBJ  (100. 1001 
OKOi  Nt*iN;0B3^lB6Mo6l 
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OKOiFtmLIB.OBJ  tl, n /L/BI60  000/E 


TRANSriK  ADOREIBi  060000 
LOM  LIHITl  060000 
HIOM  LIMIT:  UU634 
LINK  VU601 
« 


SEOO 

SRUN  link 

LINK  VUAOi 

ROKl IRE8PRO.OOO<Ok1 I 

• 

M 

» 

« 


ST. STB  C300,006] 

OKliRE8PRO.OBJI300.006] 

OKOI  AMOV. OBJ CIOO. 1001 
OKOI  ZERO.OBJClOOflOO) 

OKOI  NTRAN.OBJ  MOO.  100) 
OKOiPTNLIB.OBJ  tl. 1) /L/8I60000/E 


TRaNBPER  AOORESSi  060000 
LON  LIMITl  060000 
MI6M  LIMITi  12507U 
LINK  VlUOl 

• 

SEOO 

SRUN  link 
LINK  VllAOl 

*OKl iTMLOOP.PPPkDKI I ST. STB [300. 0061 

• OKI  iTMLOOP.08Jt300.006] 

• OKOI  AMOV.OBJMOO.  1001 

• OKOI  ZERO. OBJ  MOO.  100] 

6 OKOiPTNLIB.OBJ  M, n /L/BI60000/E 


TRANSFER  AHDRESSi  060000 
LOW  LIMIT!  060000 
MI6H  LIMITi  0706U0 
link  VllAOl 

« 

SEOO 

SRUN  link 
link  VllAOl 

• OKU  QA8UM,0Q0<Dki  I ST, STB  [300, 006] 

• OKU  QASUM. OBJ  [300.0061 

• OKOI  AMOV.OBJ MOO. 100] 

• OKOI  ZERO. OBJ  MOO.  100) 

• OKOI  NTRAN.OBJMOO.100] 

• OKOlFTNLIB.OBJM,  1]  /L/BI60000/E 


TRANSFER  AOORESSi  060000 
tow  LIMITi  060000 
HIGH  LIMITi  IIIIZZ 
LINK  VllAOl 
» 

1E0D 

IRUN  link 

LINK  VllAOl 

ffOKl iOECRIP.RRRkOKI I 

« 

s 


ST. STB [300,006] 

OK1|OECRIP.OBJ[300.0061 
OKI lOATOCM.OBJ  [300,006] 

OKOi  NTRAN.OBJ tlOO, 100] 
OKOlOCRIPT.OBJ  MOO. 1011 /CC 
OKOIFTNLIB.OBJ  [1,1] /L/BI60000/E 


transfer  AOORESSi  060000 
LOW  LIMITi  060000 
H16M  LIMITi  liiRZa 
wink  VllAOl 
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$JOB  FLOAOR (300f 006) 

DATCi-27«JUL*76 
TXMII«lBl01  tlS 
|RUN  FLOADtlOOilOO) 

#/MHC|AAA 

#/OATA 

4/COD 

#O«llC0NOHV,FFF 

•OKlltRRDRV.HHH 

«/CND 

i/MMC|B6B 

i/OATA 

iDKllDCMBUF.DAl 

IokI IQAEXEC,6CC/NPI l/NBi l,OKl IDCMBuF.DAI 

•okiierrorv.hhh 

•OXllOCMORV.lIl 

iOFUFLDPRO.JJJ 

•OKIIBIAPRO.KKK 

60K1I  ANPRO.LLL 

«OKllWVt,PRO,MMM 

•OKI IRAHPRO.NNN 

•OKllRESPRO.OOO 

•OKllTMLOOP.PPP 

•OKlt  QASUH.QQQ 

•OKllOCCRIP.RRR 

i/CNO 

i/CKlT 
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AFFE»D1X  A 

UrnXMCDIAXE  KOK- IMAGERY  DATA  TAPE  FORMAT 
FGR  THE  EARTH  RESOURCES  PRODUCTION  PROCESSOR 


I.  INTRODUCTION 

TSa«  purpose  of  this  memorandum  is  to  clarify  and  formalize  a format  for  the 
Intermediate  non-imagery  data  tape  foi  the  Earth  Resources  Production  Proceasor 
Project.  This  intermediate  tape  will  be  the  data  communication  link  between 
the  preprocessor  and  the  data  processor.  The  format  selected  resulted  from  verbal 
agreements  between  Carl  Lanham,  Roy  Jones,  Pete  Lucas  and  Paul  Chen  of  the  Pre- 
Processing  Group  of  PHO,  and  Charles  Wilson  and  Theda  Cook  of  the  I>ata  Processing 
Group  of  PHO.  A continuous  data  format,  which  is  self  descriptive,  compact,  and 
general  purpose  was  selected.  This  format  will  standardize  the  output  of  the 
preprocessor  and  the  input  to  the  scientific  computational  programs. 

II.  GUIDELINES  FOR  TAPE  FCMIMAT 

The  following  guidelines  were  established  for  the  intermediate  tape  format: 

a.  The  tape  will  be  a 9-track  tape  with  a packing  density  of  800  BPI  in  odd 
parity  or  a high  density  data  tape. 

b.  Data  requiring  alphanumeric  character  representation  will  use  ASCII  repre- 
sentation left  justified  in  the  field  with  8-bits  allowed  for  each  char- 
acter. Character  strings  will  appear  on  the  tape  in  the  order  of  natural 
occurrence.  For  example,  DESCRIPT  appears  with  D first  followed  by  E, 

S,  C,  R,  I,  P,  T,  in  that  order. 

c.  Integer  data  will  be  right  justified  in  specified  fields  with  the  least 
significant  bit  on  the  right  of  the  field.  All  data  is  written  in  byte 
pairs  with  the  right  most  byte  of  a pair  written  first. 

d.  The  intermediate  tape  will  contain  two  types  of  information  files: 

1)  T)escriptor  file(s) 

2)  Data  files 

a.  The  tape  will  be  written  in  variable  length  physical  records  with  fixed 
length  physical  records  oi  3000  8-bit  bytes  in  the  descriptor  file  and 
physical  records  not  to  exceed  3000  8-bi.t  bytes  in  the  data  files. 

f.  With  the  three  exceotions  addressing  units  In  the  data  file  w^  ' ‘ 
be  12-bit  increments  beginning  with  address  0 for  the  first 

12  bits  of  information.  BADD  and  RCDLGH.  defined  in  Section 
III,  will  be  in  8-bit  increments  and  LGPF,  also  defined  in 
Section  III,  will  be  in  16  bit  increments. 

g.  All  descriptor  file(s)  will  precede  the  data  ft. a on  the  tape. 

b.  Each  field  in  the  descriptor  file  will  be  in  multiples  of  8 bits  with 
a 64  bit  maximum. 

i.  There  will  be  one  descriptor  file  for  each  data  source  on  the  tape; 
a source  corresponds  to  one  track  of  a 14- track  EOAP,  EREP  or  ERTS 
data  tape. 

J.  Each  descriptor  file  will  have  a variable  number  of  physical  records 
depending  on  the  number  of  data  parameters  in  the  data  records  it 

describes . 
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JSC-10140 


k.  A descriptor  file  will  contain  at  least  one  identifier  block  for  each 
parameter  in  the  data  records  it  describes.  An  identifier  block  names 
and  locates  a parameter  within  data  records. 

l.  The  end  of  a descriptor  file  will  be  indicated  by  the  second  64-bit  field 
of  binary  zeros  following  the  last  Identifier  block.  There  will  be 
no  end  of  file  after  the  descriptor  file. 

m.  There  will  be  one  data  record  per  pliysical  record.  Each  data  record  will 
be  divided  into  a header  block  and  a data  block.  The  header  block  will 
consist  of  d^te,  time,  synchronization,  mode , and  indexing  information  to 
be  used  for  asynchronous  data  retrieval.  The  data  block  will  contain  the 
data  measurements.  The  maximum  length  for  a data  record  will  be  jCOO  8-blt 
fields . 

n.  The  identifier  blocks  in  the  first  physical  record  of  the  descriptor 

file  will  describe  the  parameters  in  the  header  blocks  of  the  associated 

data  files.  These  identifier  blocks  will  be  referred  to  as  header 

identifier  blocks.  The  last  header  identifier  block  will  be  followed  bv  64 
Dinary  zeros.  ^ 

remainder  of  the  first  physical  record,  not  required  by  header  identifier 
blocks,  and  subsequent  physical  records  in  the  descriptor  file  will  contain 
identifier  blocks  to  be  referred  to  as  measurement  identifier  blocks,  which 
*^®®crlbe  parameters  in  the  data  blocks  of  the  associated  data  files. 

Tf  m cnmolete  identifier  block  cannot  be  contained  at  the  end  of 
• record,  the  end  of  that  record  will  be  filled  with  binary  zeroes. 
An  Identifier  block  will  not  be  split  between  two  physical  records, 

p.  Each  field  in  the  data  file  will  be  aligned  on  12-bit  boundaries.  A data 
file  will  contain  data  from  only  one  source,  a source  being  one  track  of 
EOAP,  EREP,  or  ERTS  data  tape.  (Tlieoretical ly  there  could  be  data  from  up 
to  four  data  sources  in  the  same  data  file.  In  this  case  there  would  be 

up  to  four  header  blocks  and  four  associated  data  blocks  in  the  file.  This 
capabi lity  is  use ful  in  the  merging  of  data  streams  from  up  to  four  sources, 
but  it  is  not  applicable  to  the  intermediate  data  tapes  for  this  project.)' 

q.  Since  thisformat  is  modeled  after  the  Serial  Data  Tape  format  in  the  Earth 
^sources  Data  Format  Control  Book,  it  contains  unused  fields.  These  fields 
will  be  filled  with  binary  zeros. 

r.  The  last  data  file  on  the  tape  will  be  followed  by  an  end-of-file  mark. 


III.  DESCRIPTOR  FILE  FORMAT 

The  descriptor  file(s)  will  identify  the  type(s)  and  format(s)  of  the  data  records 
on  the  tape.  The  following  information  will  be  contained  in  each  descriptor  record 
which  will  begin  with  the  ASCII  representation  of'DESCRIPT”  in  the  first  64  bits  of 
the  file: 

a.  Date  of  data  recording. 

b.  Format  number  as  defined  in  the  i-.  to  correlate  data  records  to  the 

proper  descriptor  tile  for  lormatt  tn^-. 


c.  Ideatlflcatlon  number. 


JSC-1C140 


d. 

«. 


Data  structure  infonaation  as  received  from  the  14-track  tape. 

t",  data  records  for  eh. 


An  Identifier  block  will  define  t-he  ac^tt 

position  and  length  associated  nvnc*  name  of  a data  parameter,  the  field 

coBr-nitatlve  indexing  inf«  c subcommutative  and  super- 

or^c^tmer  btoc;^  the  parameter.  There  will  be  twS  types 

U the  header  bUch:'of'd  re  recL  paraoet^fs 

deffo.  parameters  (or  »easure.e„t:?\r?he“Ltr^?":r:f ‘d1?rr“%%d“?'^* 

«tlVn*d*\„'%Tgu«  V°Vhe'’““V  “ descriptor  file  1. 

-'Ith  the  byte  pairs  1„  reverb!  ^ ^ 1"  > core  boffer 

She  tape,  '^'''ccee  order  from  sequential  byte  positions  on 


PxMBOL 

DATA 

TYPE 

8- BIT  BYTE 
LOCATION 

DEFINITION 

OSaCRIPT 

ASCII (A) 

0-7 

ASCII  representation  of  "DESCRIPT" 

MOHTfl 

A 

8-9 

Month  of  data  recording,  01- 12^ in  ASCII 

TEAR 

A 

10-11 

Hie  last  two  digits  of  the  year  the  data  was 
recorded 

mission 

A 

12-15 

Mission  number 

FORMAT 

Binary 
Integer (BI) 

16-17 

Fo^t  number  used  to  correlate  the  descriptor 
file  with  the  proper  data  files  and  to  indicate 

c format  of  the  data  source.  Values 

of  lORMAT  are  defined  in  the  Appendix. 
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FIGURE  1 (CONTINUED) 


8 7 


HEADER  IDENTIFIER  (CONTINUE) 
HEADER  IDENTIFIER  (CONTINUE) 


POS 


MAXL 


I NCR 


NB 


LSB 


NF 


FW 


DR 


SYNC 


HEADER  IDlN'T I F I E R 


HEADER  IDENTIFIER  (CONTINUE) 


HEADER  IDENTIFIER  (CONTINUE) 


HEADER  IDENTIFIER  (CONTINUE) 


POS 


MAXI 


INCR 


NB 


LSB 


NF 


FW 


DR 


SYNC 


MEASITREMENT  IDENTIFIER 


measl-rijlent  identifier  ^contini:e> 


MEASLm.;ILNI  idkntfier  (continue) 


MEASUREMENT  IDENTIFIER  (CONTINUE) 


I 


INDICATES  END  OF 
HEADER  IDENTIFIER 
BLOCKS 
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ii. 


BYTE  3000 


FIcaiRE  1 (CONTINUEO 

£_2 


PINO 


POS 


FSTIND 


INCR 


NB 


LSB 


NF 


FW 


IR 


DR 


SR 


MEASUREMENT  IDENTIFIER 


MEASUREMENT  IDENTIFIER  (CONTINUE) 


MEASUREMENT  IDENTIFIER  (CONTINUE) 


MEASUREMENT  IDENTIFIER  (CONTINUE) 


PINO 


POS 


FSTIND 


INCR 


NB 


LSB 


NF 


FW 

DR 

IR 

SR 

y 

- - 

MEASUREMENT 

IDENTIFIER 

MEASUREMENT  IDENTIFIER  (CONTINUE) 

MEASU.UMENT  IDENTIFIER  (CONTINUE) 

MEASUR£>ENT  IDENTIFIER  (CONTINl'E) 

PINO 

POS 

FSTIND 

INCR 

NB 

LSB 

NF 

FW 

DR 

IR 

1 1 

SR 

NOTE:  If  a complete 

identifier  block  can- 
not be  contained  at 
the  end  of  a record, 
the  end  of  that  record 
will  be  filled  with 
zeros  and  the  identi- 
fier block  in  qaestio-- 
v.ill  begin  at  tne  Be- 
ginning ol  tlie  next 
record. 
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FIGURE  1 (CONTINUED) 


3000  BYTES  PER 
RECORD 

1 RECORD  CONTAINS 
SPACE  FOR  123 
ENTRIES  IF  ALL  ARE 
NOT  FILLED  THEN  64 
BINARY  ZEROS  SIGNI- 
FY END  OF  RECORD 
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ID 

A 

18-23 

NPFB 

B.I. 

24-25 

NP 

B.I. 

32-33 

LCPF 

B.I. 

40-41 

BADD 

B.I. 

48-49 

NBW 

B.I. 

56-57 

BPS 

B.I. 

64-67 

RCDLCH 

B.I. 

80-83 

NHE 

B.I. 

84-87 

BPS 

B.I. 

88-95 

96- U9 

IDENT 

A 

0-7 

(Relative  i 
Idanclf ier 

A 

0-7 

PINO 

8-9 

PINO 

B.I. 

8-9 

POS 

B.I, 

10-M 

B.I. 

lO-ll 

Number  of  prime  fra<^e«  (as  defined  for  the  inter- 
mediate tape  format)  per  data  record. 

Number  of  pins  ur  data  measuremencf  per  prime  recording 
frame  In  original  recording  oi  data. 

Length  of  storage  required  per  prime  frame  in  16-bic 
fields . 

d-bit  byte  address  »>f  the  beginning  of  tbe  first  prime 
frame  of  data  in  the  record,  e.g.,  the  length  of  tiie 
Iteader  block  of  the  data  record  (in  d-bit 
increments).  3AD0  must  be  an  even  number.  Zero 
fill  will  be  added  If  necesaarv. 

Number  of  bits  per  word  in  original  recording  of  date. 

Bit  rate,  in  bica  per  aecond,  of  original  recording  of 
data. 

Data  record  length  in  8-bit  incremenca. 

Number  of  header  Identifier  blocks. 

Prime  frame  rate,  in  revolutions  per  second,  of  original 
recording  of  data,  the  first  32  bits  are  the  integer 
portion  and  the  second  32  bits  are  the  fractional  portion. 

&rcrfiit7 

Header  identifier  block;  The  ASCII  name  of  the  header 
parameter,  with  trailing  blantca  to  fill  out  the  field. 
•XSome  header  parameters  will  be  assigned  standard  ASCII 
naaies  in  all  descriptor  files.)  The’ maximum  number  of 
header  identifier  blocks  la  120. 

End  of  Che  header  identifier  blocks:  bd  zero  bits. 

Measurer4jnt  identifier  block;  The  ASCII  name  of  die 
measurement  entry.  (This  will  be  the  8 character 
measurement  nunher  assigned  to  each  measurement  in  the 
Earth  Resources  Data  Format  Control  Book. ) 

End  of  descriptor  file:  64  zero  bits 

'Header  identifier  block:  Not  applicable 

Measurement  identifier  block:  The  Pulse  Code  Modulated 

(PCM)  word  or  pui  number  from  which  the  measurement  came, 
scnrttoi;  with  pin  number  0. 

Header  identifier  block:  The  12-blt  byte  address  of  the 

first  hvte  ol  the  data  field  containing  the  header 
parameter,  relative  to  the  first  of  the  data  recor 

'Ir Jsoi V rent  identifier  block  - subo'^mmutated  and  main 
frame  tiaca:  The  12-bic  byte  address  of  the  first  t'‘-'ce 

of  th»  data  field  containing  the  meawuremenf 
relative  to  the  hepinnlng  or  a prime  frame. 


JSC-10140 


DATA  8- BIT  BYTE 

STMWL  TYPE  LOCATION  DEFINITION 


KAXI  B.I.  12-13 


FSTIND  - 

B.I.  12-13 


Ha«turem«nc  ldentifl«r  block  • lupvrcoMucatod  dAt«:  Ih« 

byte  address  o^  the  first  entry  for  the  meaMurement  in  a prime 
frame  relative  to  the  heRlnninil  of  the  pnmw  trame. 

Header  Identifier  block:  If  IDENT  is  one  of  the  INDEX  fields, 

then  this  Is  the  maximum  value  that  the  INDEX  may  have.  (INDKX 
l»  a standard  parameter  in  the  header  hlork  of  s d.tts  Mir  f-o 
Indexing  subcommutated  data.  HAXl  i«  lim  uumi.iBi  Mf  imi. 
per  cycle  for  the  subcommutating  rate  associated  with  the  INDEX.) 
Not  applicable  for  any  other  header  parameters. 

Measurement  identifier  block:  Not  applicable. 

Header  Ideu'-tfler  block:  Not  applicable. 

Measurement  lientifler  block  - subcamnuCdted  data:  A number  thJt 

associates  a pilme  frame  with  a subcommutated  measurement.  It 
FSTIND,  for  a measurement,  minus  1 equal  the  value 
in  the  INDEX  table  entry  for  a prime  frame,  the  measure- 
ment occurs  in  the  prime  frame.  (See  definition  of 
INDEXl.  INDEX2,  and  INDEX4  in  Section  IV.) 


When  the  physical  record  contj>ins  exact  multiple  of 
MAXI  frames  (MAXI  is  the  number  ot  prime  frames 
In  the  cycle  for  rhe  INDEX  table).  FSTIND  associates 
a measurement  with  only  the  first  prime  frame  In  the 
the  record,  that  has  an  INDt.X  entry  equal  to  FSTIND 
minus  1,  Is  the  frame  containing  the  first  value  of  the 
measurement.  For  subsequent  frames  In  the  record, 
containing  the  measurement,  FSTIND  must  be  ignored 
and  the  measurements  are  found  using  INCH  (defined 
below) , 

Measurement  Identifier  block  • supercommutated  jnd  main  frame 
data:  Always  1. 


INCH  B.I.  14-15 
B,I.  14-15 


NB 

B.I. 

16 

B.I. 

16 

LSB 

B.I. 

17 

B.I. 

17 

Header  identifier  block:  The  12-blt  byte  address  increment  be- 

tween successive  fields  containing  the  header  parameter. 

Measurement  identifier  block  - subcomoutated  data;  The  prime 
frame  increment  to  the  next  prime  frame  in  which  the  measurement 
occurs . 

Measurement  identifier  block  - supercommutaced  data:  The  12-bit 

byte  address  increment  to  the  next  data  field  in  the  prime  trame 
containing  the  measurement.  The  data  field  is  defined  by  FW 
below.  (The  entries  must  be  evenly  spaced  within  each  prime  frame.) 

Header  identifier  block:  The  number  ot  bits  pjr  parameter  value. 

Measurement  identifier  block:  The  numoer  of  bits  per  measurement 

^es(ier  identifier  block;  The  bit  number  of  the  least  s L .^n  i f ic.ant 
bit  of  the  heaaer  parameter  in  the  data  field,  starting  with  the 
right  most  bit  in  the  data  field  as  bit  zero.  ^The  data  field  is 
specified  by  FW  whicti  is  defined  below.) 

Measurement  identifier  blcck:  The  bit  number  of  the  le.»st  sig- 

nifirart  bit  of  the  measirement  in  the  data  field,  starting  with 
the  . gb t most  bit  in  f'le  d-ita  field  as  bit  nitr.ler  ^ero. 


A- 12 


REPRODUCIBlLrrY  OF  FHrJ 

. TQ  P(  )■  'Vi 


16-19 


Header  Identifier  block:  The  number  of  sequential 

fields  of  length  defined  by  FW  below.  NF  Is  used  to 
indicate  the  number  of  entries  in  a table  in  the  header 
block  and  It  is  usually  equal  to  the  number  of  prime 
frames  per  data  record.  (See  the  definition  of  I.NDEXl 
and  TDfEl  in  Section  IV  for  an  example  of  a table.) 

18-19  Measurement  identifier  block  - subconsnutated  and  main 

frame  data:  Always  1. 

Measurement  identifier  block  supercommutated  dat.T:  Tb.* 

number  of  entries  of  the  measurement  per  prims  frame. 

20  Header  Identifier  Block  and 

20  Measurement  Identifier  Block; 

A code  to  indicate  the  number  of  bits  rtqulred  tu  define 
a data  field,  which  is  always  a multiple  of  12  and 
always  less  than  or  equal  to  48.  FW-0  indicates  a 12- 
blt  field,  FW-1  indicates  a 24-bit  field,  ,'V*2  Indicates 
a 36-bit  field,  and  FW"3  indicates  a 48  bit  fl“ld.  Using 
NB,  LSB,  and  FW,  a data  field  may  be  defined  in  multiples 
of  12  bits,  but  tne  subfields  within  the  data  fields  may 
be  defined  Ignoring  the  12-bit  boundaries.  For  example, 
consider  the  following  data  field. 


B 


35 


19  18  17 


12  11 


6 5 


0 bit 
nunbc  r 


Then  KB,  LS3,  and  r..’  are  given  for  the  parameters  in 
the  data  field  as  follows: 


Parameter 

UjCKT 

■9 

LSB 

FV 

A 

■■ 

2 

B 

2 

C 

6 

■s 

2 

D 

6 

2 

r 

6 

: 

A,  B,  C,  D,  and  £ n-y  be  header  parameters  or  measure- 
ments. 
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DATA  B-ttT  BYTE 

nmOL  TTPE  LOCATIOW  DEFIMITIOW 


DR  B.I.  21 

IR 

B.I.  22 


SYNC  B.I.  23 


SR 


Alwayt  aqua)  C('  1. 

H'adar  idancitiar  tilovkt  Not 

Mtaiuranwnt  idanttfiar  hlnrli  - ."«miitarad  data; 
Indicator  of  the  indtx  taSle  dkaociatod  wiin  ciia  muaauia- 
ment;  1.  2.  3,  or  4 tndicatin*  I'OEXl,  INDEX2,  INDEX3, 
or  INDEX4,  respec c ive ly , 

Mrasureoenc  Identifier  block  - superconnucatad  and 
main  frame  data:  Always  0. 

Header  identifier  block;  A number.  N.  such  that 
OCxilS  associating  the  proper  SYNC  table  to  the  parameter. 
The  SYNC  table  is  a standard  table  in  the  header  block 
of  a data  record.  If  the  parameter  being  defined  is  a 
SWC  table,  then  M is  the  number  ot  the  SYN'C  table 
(1-lS).  For  other  parameters,  then  the  relevant  SYNC 
table  is  that  one  whose  SYNC  entry  is  equal  to  N. 

Heasuraoent  identifier  block;  Not  applicable. 

Header  identifier  block;  Not  applicable. 


B.I.  23  Measurement  identifier  block;  A number,  N,  associating 

the  proper  SYNC  table  to  the  measurement;  the  relevant 
SYNC  table  is  that  one  whose  SYNC  entry  is  equal  to  N. 


rV.  DATA  RECORD  FORMAT 


A data  record  will  contain  two  major  blocks;  a header  block,  and  a data  block.  There 
will  be  one  data  record  in  each  physical  record. 


Header  Block 


The  header  block  of  a data  record  will  consist  oi'  ti'e,  date,  synchr.tnizatlon  parameters, 
mode,  and  Indexing  parameters  for  subcotimutated  data.  Some  of  the  parametc-s  in  the 
header  block  will  have  standard  ASCII  names  and  descriptions;  DAYS,  YEAR,  FMTNO  . TIMEl, 
SYNCl,  SYNC2,  ...SYNC15,  INDEX!,  INDEX2,  IN0EX3,  and  INDEX4.  These  parameters  are 
defined  as  follows; 


DAYS  B.I. 
YEAR  B.I. 
FMTNO  B.I. 

TiMEl  B.I. 


The  day  of  the  year  the  Intermediate  tape  was  generated. 

The  year  the  intermediate  tape  was  generated. 

The  format  number  of  the  descriptor  file  to  be  associated 
with  the  data  racord  (see  definition  of  FORMAT  in 
Section  III). 

A time  table  containing  a time  in  tenths  of  m i 1 1 1 s e c or < 
associated  w 1 1 li  each  prime  frame  In  the  data  rec 
Days,  hours,  minutes,  and  seconds  (in  tenths  of 
milli-.i'ConJ..J  locrenentid  iron  the  zero  h-uir 
.Jcci’niv.  r n ,.f  t,..,  ...r  ef're  the  year  Indicatec 

in  I he  descriptor  tile. 
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DATA 
STMBOI.  TYPE 

INDEXl,  B.l. 

INDEX2, 

1MDEX3, 

and 

INDEX4 


• B.  I . 
3WC2, 


SYNC I 5 


8- BIT  BYTE 

LOCATION  DEFINITION 

- Tables  Co  be  used  for  referencing  subcommucaced  data  in  the 
data  record.  One  INDEX  table  will  be  required  for  each  asyn- 
chronous-subconmuCating  rate  in  Che  record.  There  is  .in  entry 
in  each  INDEX  Cable  for  each  frame.  Tlie  value  in  the  INDEX 
table  for  a particular  frame  identifies  the  subcommucated 
measurement  parameter  in  the  frame;  e.g.,  ii  in  the  measure- 
ment identifier  block  for  a parameter  IR  • 1 (specifies  IN.'iE.vU 
and  FSTIND  ■ 4 (specifies  a value  of  3 in  INDEX  tabl 
then  the  measurement  corresponding  Co  the  measurement 
Identifier  block  will  be  found  in  those  frames  of  the 
record  C'.iat  have  a 3 in  INDEXl.  If  Che  value  in  the 
INDEX  table  plus  1 is  greater  than  MAXI  in  the  he.ider 
identifier  block  for  the  INDEX  table,  then  the  data 
synchronisation  pattern  has  not  been  recognized  by 
Che  preprocessor  and  recording  will  begin  in  the  INDEX  c.ible 

as  soon  as  synchronizat ion  has  been  established.  The  length 
of  the  entries  in  the  INDEX  tables  will  be  defined  by  NB  in  Che 
respective  header  identifier  blocks. 

- Tables  of  status  indicators  for  the  data  record.  There  will  be 
one  status  iirdicator  in  each  cable  for  each  prime  frame. 

SYNCl  will  correspond  to  TIMEl,  and  it  will  have  the  following 
values  indicating  status  from  Che  timing  subsystem: 

7 - Timing  subsystem  indicated  time  code  translated  with  no 
prob lems . 

4 - Translator  time  discontinuity  status  line  on 

3 - Invalid  time  status  line  on,  or  if  data  from  digital  tape  - 
parity  error  on  read 

1 - Both  discontinuity  and  invalid  status  lines  on 
0 - No  time  read  for  this  entry 


SYNC2,  SYNCl.  SY1X4  will  be  reserved;  they  will  have  nc 
application  on  Che  intermediate  Cape  for  this  project. 


SYNCS  will  be  Che  prime  frame  synchronization  indicad.r 
corresponding  to  TIMEl. 

SYNC6,  SYNC7 , SYNCS  will  be  reserved;  they  will  have  no 
application  on  the  intermediate  tape  for  this  project. 
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DATA 
SYMBOL  TYPE 


8- BIT  BYTE 

LOCATION  DEFINITION 


SYNCY  SYNCIO,  SYNCU,  and  SYNC12  util  be  reserved  to  e^i  -spono 
to  subcommuiated  data  cycles  indicated  in  INDEXl,  INDEX2,  INDEX3, 
snd  TNDEX4.  respectively. 


SYNC13,  SYNC14,  anl  SYNC15  will  be  used  as  required. 

The  lenith  of  the  individual  entries  in  the  SYNC  tables  will 
be  defined  by  NB  in  the  respective  lieader  identifier  blocks. 


SYNC5  throuqh  SYNC15  will  take  on  the  following  values  or 
additional  values  as  necessary  when  referencing  data: 


7 - The  P'ime  frame  synchronization  pattern  was  recognized 
with  preprogranined  errors  or  contldence  built  up  in  the 
INDEX  value. 

5 - A one-bit  slip  was  recognized  in  the  prime  frame  synchroni 
ration  pattern  or  medium  confidence  in  the  INDEX  value. 

3 - Low  confidence  in  the  INDEX  value  or  if  digital  tape 
input-parity  error  on  read 

0 - Data  bad  or  no  data  stored  for  this  entry 


Other  header  parameters  may  be  defined  as  required. 


Data  Block 

The  data  block  of  a data  record  will  be  composed  of  d.ata  fr.anes.  The  data  frames  will 
be  stored  in  time  sequence,  the  number  of  time  sequences  per  record  being  equal  to  t 
NPFR  field  in  the  descriptor  tile.  Each  time  sequence,  or  consecutive  frame,  will  corre- 
spond to  consecutive  entries  in  the  Tl.MEl.  INDEX,  and  SYNC  f the  PfM 

frame  will  be  stored  consecutively  by  PCM  word  numoer  beginning  with  word  0 for  the  FCM 
word  containing  the  sync  tndic.itor.  The  measurements  will  be  paewed  In  multiples  o. 
fleldrwithin  Lch  prime  frame.  The  packing  form.it  will  be  spect.ied  in  the  measurer,  nt 
iLntlfler  blocks.  Refer  to  Nb.  'SB.  and  FW  in  the  measu  oment  identitier  blocks  o the 
de.crlptor  tile  as  defined  in  Su.cion  lit.  Binary  zeros  nil  be  tit 

force  alignment  on  12,  24.  lb.  or  48- bit  boundaries.  Allinment  will  be  forced  the 

• o4  of  ««ch  prif.te  frame 


12-blt 


A"lt) 


JSC-IOIAO 


Bytft  No. 

1-4 

5-6 


NON- IMAGERY  DATA  UNUT:RSAI.  FORMAT 

DATA  KECORD  ( Kaw  Data) 

Content  Doscrl pt ion 

. Frame  Tinit^  for  Block  # 1 

. AOOI-Rro  1st  sample  this  block 


67-68 

69-70 


AOOl-  RRO  32nd  sample  this  block 
A002-  RRO  fst  sample  this  block 


131-132 

133-134 


AD02-  RRO 
A003-  RRO 


32nd  sample  this  block 
1st  sample  this  block 


195-196 

197-198 


A003-  RRO  32nd  sample  this  block 
A004- RRO  1st  sample  this  block 


259-260 

A004-  RRO 

32nd  sample  this  block 

251-262 

A005- RRO 

1st  sample  this  block 

323-324 

A005-  RRO 

32nd  sample  this  block 

325-326 

A006-RR0 

1st  sample  this  block 

387-388 

A006-RRO 

32nd  sample  this  block 

389-390 

A007-RRO 

391-392 

AO08-RRO 

393-394 

AO09-RRO 

395-396 

AOl 0-RRO 

397-398 

AOll -RRO 

399-400 

AOl 3-RRO 

401-402 

AOl 4 -RRO 

403-404 

AOl 5 -RRO 

405-406 

D005  -RRO 

407-408 

D0P6-KR0 

409-410 

AlOl-RRO 

411-412 

Al 01-RRO 

413-414 

A106-RRO 
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DATA  8-BlT  BYTE 

SYMBOL  TYPE  LOCATIOM  DEFIHITION  — 

SYNC9,  SYNClO,  SYNCH,  and  SYNC12  will  bt-  reserved  -orrespond 
to  subcommutated  data  cycles  indicated  in  INDEXl,  INDEX2,  INDEX3, 
and  INDEX4,  respectively. 

SYNC 13,  SYNC 14  and  SYNC  15  will  be  used  as  required. 

The  length  of  the  individual  entries  in  the  SYNC  tables  will 
be  defined  by  NB  in  the  respective  header  identifier  blocks. 

SYNCS  through  SYNC15  will  take  on  the  following  values  or 
additional  values  as  necessary  when  referencing  data: 

7 - The  prime  frame  synchronization  pattern  was  recognized 
with  preprogranmed  errors  or  confidence  built  up  in  the 
INDEX  value. 

5 - A one-bit  slip  was  recognized  in  the  prime  frame  synchroni- 
zation pattern  or  medium  confidence  in  the  INDEX  value. 

3 - Low  confidence  in  the  INDEX  value  or  if  digital  cape 
input- parity  error  on  read 

0 - Data  bad  or  no  data  stored  for  this  entry 


Other  header  parameters  may  be  defined  as  required. 

Data  Blo.-iC 

The  data  block  of  a data  record  will  be  composed  of  d.nca  frames.  The  data  frames  will 
ba  iWred  in  time  sequence,  the  number  o£  time  sequences  pec  record  being  equal  Co  the 
NPFR  field  in  the  descriptor  file.  Each  time  sequence,  or  consecutive  frame,  will 
Xd  to  consecutive  entries  in  the  TIMEl,  INDEX,  und  SYNC  tables.  The  data  In  each  ata 
frame  will  be  stored  consecutively  by  PCM  word  number  beginning  with  word  0 for  the  PCM 
word  containing  the  sync  Indicator.  The  measurements  will  be  packed  in  multiple,-  ot 
fields  within  Lch  prime  frame.  The  packing  format  will  be 

identifier  blocks.  Refer  to  -B,  LSB.  and  FW  in  the  n;asurement  identifier  blocks  o£  the 

descriptor  file  as  defined  ...  Section  III.  Binary  zeros  will  be  “^en  in  a 

force  Sugnment  on  12,  24,  3b.  or  48-bit  boundaries.  Alignment  will  be  forced  at  Che 

and  of  each  prime  frame 
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NON- IMAGERY  DATA  UNIVIIRSAI,  FORMAT 
DATA  RECORD  (Raw  Data) 


Byta  No, 

Content 

Description 

1-4 

# 

Frame  Time 

for  Block  # 1 

5-6 

4 

ADOl-  RRO 

1st  sample  this  block 

• 

67-68 

0 

f 

0 

ADOl-  RRO 

32nd  sample  this  block 

69-70 

4 

AD02-  RRO 

1st  sample  this  block 

• 

131-132 

m 

4 

AD02-  RRO 

32nd  sample  this  block 

133-134 

# 

A003-  RRO 

1st  sample  this  block 

195-196 

4 

• 

A003-RR0 

32nd  sample  this  block 

197-198 

• 

AD04-  RRO 

1st  sample  this  block 

259-260 

4 

A004-  RRO 

32nd  sample  this  block 

251-262 

4 

A005-RR0 

1st  sample  diis  block 

323-324 

4 

§ 

A005-RR0 

32nd  sample  this  block 

325-326 

4 

A006-RRO 

1st  sample  this  block 

387-388 

4 

« 

A006-RR0 

32nd  sample  this  block 

389-390 

• 

A007-RR0 

391-392 

» 

A008-RR0 

393-394 

• 

A009-RRO 

395-396 

* 

AOIO-RRO 

397-398 

0 

AOll-RRO 

399-400 

0 

A013-RRO 

401-402 

0 

A014 -RRO 

403-404 

• 

A015-RU0 

405-406 

4 

D005  -RRO 

407-408 

• 

D0P6-RR0 

409-410 

m 

AlOl-RRO 

411-412 

t 

AlOl-RRO 

413-414 

» 

A106-RRO 

A-17 
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Bvte  No.  Content  Description 

415-416 

0007-RRO 

417-418 

A016-RRO 

419-420 

A017-RR0 

421-422 

A017-RRO 

423-424 

AOIS-RRO 

425-426 

A019_rro 

427-428 

A020>rro 

429-430 

A020-RR0 

431-  43  2 

A02  3 -RRO 

433-434 

A102-RRO 

435-436 

A103-RR0 

Last 

S ampl e 

Block 

#1 

2615-2616 

A103-RRO 

.Last 

S ampl e 

Block 

#6 

2617-2880  0- 

0 Zero  Fill 

] 


A-18 


JSC-10140 


APPENDIX  B 


TABULATION  FOtattTS 


CMb  COLUHNS 


LliT  or  ruruT  CAMCO 


»o  « ® « 0 0 


-« 5 X._*5 

«•  f at. 

--1« U r.^ 

»*  « 18t~ 

— « 

« *5.2J« 

I at, 234  

7 117.23* 

— « 128.23* 

* 13»,23« 

. io._«iB.a; 

11  1^11,23 

12  1*12,23 

IJ  1*12,23 

-IJ 1113.23 

13  1715.23 

-t3__l7jT.23  

II  171*. 25 
-13  _ 172;, 23 
13  1723,23 

-J-5 il2S.2J 


1*  It 
— 5 **^23« 

* 75.23* 

7 8t,23* 

• *7.23* 

—2 158^23«_ 

la  II*. 23* 
-11 1218,23 

12  1311,23 

-15 1*12.23 

13  1712,23 

-15 lll«,25_ 

13  1718.23 

13  ..  1718.23 
13  1723,23 

13  _ 1722,23 
13  172*, 23 

-15 17_2*.23 


*e 


« 

V 


61 

62 

'65 

66 

65' 

66 

6? 

66 

69' 

70 

Tl 

72 


2 

_5 

4 

5 

14 

T 


75' 
7s 
■ 75' 

76 

77 

78 


6 

9 

' 10 
5 
36 

__2_ 

9 

3 


35 

55 

_55 

l1‘ 

24 


0. 

0, 

_-P* 


2 

_ 5 
4' 
5 

Tfl- 

7 


36 

38 

~38 

38 

'll 


SO 


10 

_ s 
37  38 

J.I3 
.65 


2,222 

*5  3.533'  8 i.0 

.25  S,SSS  9 CO 

25  5.555'  10~«0 

- 5_j020_  956 610  685 

39  so  si  42  " S3 

- * « ^5  6 7 


e; 

0. 

or 

0. 

“30.- 

_?.i222_ 


T.333 
s.sss 
5.555 


44 

8 


11  12  13  14  f5 

_ 5 6 _ 7 B 9 

3'»  40  4|  42  43 

-0_,.0el72 0,020  _-O78,U0 

.006  0.059  '320,985 


79 

80 
81 
82 
63 
8S_ 

'85 

86 


W 

I 


too 

12.3 

650 

Li 

1.0 

0.202 

_521 

-545 

.188 

,409 

2 

0 

498 

494 

600 

0 

550 

0 

500 

0 

700 

0 

1 023 

0 

900 

_2 

0 

0 

650 

Ido 

185 

165 

535- 

520 

’15 

’25 

865 

675 

675 

-4.0  0._ 

625 

75 

-.520 

"32r~ 

~ffi 

385,124 

362,562 

_36j,328^ 

60,7470 


.-0.0_ 

341,144 

»27.3428_ 

0,0 


-0|0_ 

0,0 

_Oj.<L 


0.0 


_P40JgC7  8191 


AI*.T..0^8T0SED  IN9UT  POROHeTCRS 


'number 
1 


5 

' 7 
9 

~11 

13 

-15“ 

17 

“I»- 

21' 
23 
25" 
27 
20  ■ 
31 

33  ' 
35 

'37  ~ 
39 


41 

03 

05 

■*07- 

49 

ft 

53 

55 

57 


8T*R7  TI*»E 
_ 5. 08460 0000 000 0000 

3.1 1 Jeoeee'ooooceoO 

l .85S'’'’3«0CC205993 
2.5867i3Soc0205990 
3^3l89jjaooo205990 
4.051 l2299995Si7so 
4.T7722J99995UJ2BD 
0.7835229999502235 
4,78192j99995s22oa 
«.78s32299995«224D 


j^L>.!7_I|5L-515L_S0.  3 4BC0tFGHlJKLH90P0UR8TUVW«YZ 

B*SE  JULIAN  D07E  2002904,5  

INTERVALS 


04 


OS 

04 

04 

04 
04' 

05 
■5JT 
04 

Os  ■ 


f.itioooooeeooccoD 

_ r.23e33329999a«690 
1.0505550099128300 

_ 2. 67022219998*5455 

3.34Ca*u59997675;; 

5.0846000050000905 

1.2310000000000095 

1.0510000600990095 

8.To222i9995836525‘ 

1.5904483996747300 

5.1336090090009000 
1 .20oo:?oeoe99cooO 

^2^91 C9Cfl099600C995 
0.4800006000009903' 
1 .66!"0e0908900e;5 
5. 1 252000609000095 
1.210331299994.46; 
1.05C555s999|;t3tte 

oceoooooooeeoo 


os' 

os 

04- 

os 

CM- 

OS 

04  ■ 

05 

0J~ 

OS 


time 

8T0P  time 

5j  j>  8 55  0 6 DO  00  0 0 0 0 0 D 

5.1  3*009 dcOOOOOOOO 

__2, 20252 38000205993 

2.’ 347*34000205990 
_3, 6669*34000205990 
4.39912299995U22S0 
4.7832229999502240 
■'Tr778Ie229499sJ*2;c- 
_S. 78*92*999954**45 
S.78*»2299995s2240 

3^.  138909000009000" 
1.32:3512999944690 
-2.0005554499828340 
_2.l6fl2**<999883650 
3.48:c.43999;4r3;3 

_5.e!55:e090000C9o3 

i.23!3o:ceoflooooa: 

1. ’5:3909:000900:0 
’.3::c:o35:9o'99o:3' 
_i.65:j:oocoo9ooooo 


os' 
os^ 
08 
04 
04  ' 
os 
'(nr 
os 
Os 


(SECONOSJ  

NUmSER'  ' START  time 
— 2 .3,1068000009009000 


4 

6 

“8 

10 

■ 12' 
1« 

~3T- 

1« 

20“ 


04' 

04 

Uir 

04 

Os 


08 

'66 

OS 

IT- 

04 


22' 

24 

28 

'30' 

32 

36 


"3r 

40 


04 


3.1390909000090093  04 

**  i.J:8::t9co95;co:3  o4" 

2.52!9:coe9009ceo5  04 

’.’^:222i^”83  3652^-93' 

®*_ t.48;»-«3»«9’lT3«;  94 

3, l25’0a9000C0e995  54 

1 .2*59550590:09095  04 

64  2.0190509090930500  94 

’v’isoeoooooooeoeo  o3 


I. 4884*34000205995 
2;2206234ooo20S99D 
2, ’528*34000205990 

_ 3,8460230000004170 
4.417222999954**40 
_4, 783322499954**40 

II. 783722999958**80 
4, 7881**999954**40 
S.78sS229999Ss224D 

8.2e222l’'»98836S2D 
1.5908443999767300 
5. 106500000000000D 
3.0303132999948690 
3.7505558999828380 
8,7100000000000060 
1.5910000090000000 
_3, 1240000006060060 
l,2503332’79948690' 
_1. ’505554999828340 


42 

'44 

46 

-J8- 

50 

52 

54 

56 

58 


’.3000000000000000 

1,6500000000000000 

5.  11350000  00000000 

I.IOBOOOOOOOOOOOOO 

2,6280000000000000  04 

•,70222l999aSl6S|D  o3 

1.5908483999767100  OS 

f . I 3S7oooooeeooooO  os 

1 ,2900000000000000  04 


04 

5 

04 

1 

00 

2 

04 

“3 

04 

4 

04 

4 

04 

4 

04 

4. 

04 

4, 

O4 

4, 

03 

04- 

1. 

04 

5. 

04 

3, 

04 

3. 

03 

8, 

04 

1. 

04 

5, 

0^ 

1. 

04 

2. 

03 

04 

1. 

04 

5. 

STOP  TIME' 


2sO  04' 


2,0100000000000000  04 


2,0805558999828380  08 
’, isoooooooooooooO  03 
1 .6SOOOOOOOOOOOOOD  04 
5.1382000300000000  08 
1,3080000000000000  04 


o 
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l.6Soooeeeooooooo6  o< 

1 

.6680900000090900  00 

60  2.6100 

eeeoooeo 

32144088 

0*394976 

0000  o« 

2,0360000000000060  64 

*s 

*) 

t.'te6os:ooeoooe6o&  o* 

l>03C33339999Xi69D  Ot 

5 

3 

.10*9090009000003 

.1303332**991*6*3 

.80955S099983830D 

0* 

0* 

U t.6?)3 

60  3.3900 

3650  6i 
7300  04 

2.T6032314098836IO  gi 
3,4eoa*a3999T67300  04 

♦ 

65 

3.7S0SSSo9998383ob  Oo 

3 

0* 

ViLUt 

loDE* 

Pi*i»»t£9 

VALUf 

thoflf 

PAPiHtTtR 

vALur 

PJbfci 

PaSaHeT'eB 

i-  '- 

StNSOO 

_ IS  . 

PEC.  PC*“. 

27 

3 

“ISSIOS 

99 

4 

flight  no. 

1 

: % 

SITE  *<0. 

3 

9 

LIME  SC, 

3 

7 

Bun  no. 

Q 

» 

YEto 

76 

9 

5 

10 

day 

6 

11 

TAB  OPTION 

1 

13 

El  del  OPt 

0 

13 

NBS.  DEL 

0 

10 

HINS,  DEL 

0 

15 

SECS,  DEL 

0 

16 

0V»L,PE9J. 

30 

17 

CiL  »E»S, 

5 

18 

HVL  PEBS. 

5 

19 

toil  pers. 

65 

30 

CNSEC  8C0S 

S 

31 

Ll^EiP  OEV 

5 

33 

hnpcm  synS 

1030 

23 

A«  PCH  END 

956 

““ 

30 

Ml».  S**^I>LS 

610 

35 

«i*  SioOLS 

__685 

36 

MST  OSCE  1 

38 

37 

KST  PNGE  2 

3* 

18 

HST  RNGE  3 

*9 

29 

HST  BnGC  4 

4l 

P 50 

it 

HST  RSOE  5 

02 

31 

*<SY  OME  6 

03 

33 

HST  BSGE  7 

ii 

K$T  Bs6E  1 

3 

30 

“ST  OSGE  3 

3 

3S 

HST  BnGE  3 

a 

36 

HST  RNGE  4 

5 

JT 

HJT  RsSE  5 

6 

38 

“SY  asGE  6 

7 

SO 

HST  BhOE  T 

8 

00 

HST  RoCf  1 

9 

01 

“ST  BSCE  2 

10 

03 

HST  BSGE  3 

It 

«3 

HSt  BNGE  4 

: 2 

^ M 

uu 

HS7  9NCE  5 

M 

05 

HST  PS6£  6 

10 

06 

H8T  BNGE  7 

15 

{ 

cj 

OT 

H8T  oiiGE  t 

3 

08 

“ST  RSCE  2 

* 

49 

HST  BNGE  3 

5 

50 

HST  BNGE  4 

6 

^ o 

St 

hST  906E  5 

7 

53 

HST  BSGE  6 

8 

53 

HST  BNGE  7 

9 

so 

HST  BLOE  1 

37 

55 

kST  PsgE  3 

38 

56 

HST  BNGE  3 

34 

57 

HSt  ANGE  4 

40 

i 

> S 

ss 

HST  ROSE  S 

01 

59 

HST  BNGE  6 

03 

60 

HST  RSCE  7 

*3 

c 

6t 

LHPCH  00*6 

600 

62 

“tPC“  *9i8 

650 

W {3 

1 

63 

Hi*  TOL  1 

3 

60 

“IS  t:l  1 

0 

65 

HA*  TOL  3 

*48 

66 

HIN  TOL  3 

49* 

HH 

6T 

Hi*  TCL  J 

600 

"IS  TOL  3 

0 

69 

HA*  TOL  0 

550 

70 

MIN  TOL  4 

0 

CO 

71 

Hi*  TOL  1 

100 

73 

HIM  TOl  I 

0 

73 

Mi*  TOL  3 

TOO 

74 

MIN  TOL  3 

0 

7S 

Hi*  TCL  3 

1023 

76 

“IS  tol  3 

0 

77  " 

Hi*  TOL  0 

■ 550 

78 

HIN  TOL  4 

0 

76 

Mi*  TCl  1 

900 

80 

“IS  TOL  1 

0 

81 

HA*  TOL  3 

650 

82 

HIN  TOL  3 

300 

S 

S3 

Hi*  TOt  } 

185 

“Hls  toL  3 

165 

SIT" 

Hi*  TOL  4 

535 

66 

HlPi  toL  4’ 

530 

^ tc 

• • 

87 

Hi*  TOL  1 

3 

88 

“IS  TOL  1 

A 

89 

H*  *L0  BiO 

915 

90 

HH  PLO  PiO 

865 

9l 

H*  HTD  RiO 

675 

93 

HN  HID  RAD 

635 

• 

93 

“*  s*i  ■*: 

75 

90 

“S  S"L  Bad 

25 

B5 

H*  iHB  BAD 

325 

96 

HN  AMB  RAD 

375 

4 

97 

H*  BTh  »0v 

«35 

98 

HH  BTh  PCV 

875 

99 

MX  shl  fov 

400 

100 

HN  SHL  FOV 

350 

« 

101 

H*  L"L  EOV 

600 

102 

“H  L“L  POV 

530 

* 

y INOtX 

PiBiHCTER 

VALUE 

INDEX 

PABahETER 

VALUE 

INDEX 

PABAHETER 

VALUE 

* 

1 

HiVELENGTH 

1,3300000 

3 

COL 

SBC  BB 

St72000027t«0} 

3 

CHNL  BIVLT  3,40000003E.03 

a 

BSP  CCE*  0 

.078,10999 

5 

BSP 

CSE*  1 

381 

,13399 

6 

BSP  COEF 

2 0,00000000 

7 

BSP  CCE*  3 

e.eooooooo 

8 

»iVELE'<GT“ 

0,90909998 

9 

C*L 

SBC  SO 

6,90000005E.03 

10 

CHNL  eivLT  5,900e0004E.02 

11 

BSP  CCE*  0 

320,46109 

12 

TISP  C3E*  1 

363 

,56301 

13 

RSP^OEF 

3 341,14*01 

10 

BSP  COE*  3 

o.oooooeoo 

■ 

15 

pivELEoGTH 

0,80000001 

16 

C*L 

SBC  BB 

9,35000913E.03 

IT 

CHnL  BIvlT  3,99999993E.03 

1» 

BSP  CCEP  0 

531,18799 

1* 

BSP 

COEP  1 

361 

,33800 

30 

BSP  COEF 

3 .27,343800 

(-4 

31 

BSP  crE*  3 

0,00000090 

• 

in 

33 

HiVELI  NOTH 

13,300000 

23 

C*L 

SBC  BB 

1,00000600 

34 

ChnL  BivlT  0,30200001 

1 

n 

3S 

^5^  C 0 

.505,00000 

36 

USP^  COtF  i 

60, 

7S7002 

2 7 

^5P  COEF 

3 y.OOOOOOOS 

1 

38 

BSP  COIP  3 

0,00000009 

i 

M 

H* 

4>* 

* ' 

o * 


/ 
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9C **Lil*^ E *111’’ 9.1 SC*N  REj E C TE 0 J 

SYNC  PutsE  0,  8*iL  C*L  L*’'P  1056, 

7E»0  vOUTS  REE,  t» POrER  SyPPUY  OIAG, ,6, 

PiCRASE  TEXP,  ■ ■ 0^  OATA  PALLET  TE^P,  0, 

LRL  0ETf;T0R  ’E^P,  0.  SR£C,  PALLET  TE“_p, 0, 

DtC“RClC  TExp,  " 0,  HEATED  CAL  TEHP,  0, 

REEj  SCLRCE_TE"R, 0, AXBIENT  CAL  TEHP, 19*. 

IHT, 'sphere  TEHP,  C,  MIRROR  TEHP,  0, 

RAD  CAL  hxeel_P08. „805, POV  FLAG  _ 0, 


— I 

•••historical  file  FLAOS**^  > 


1P_C  ALC  UL  AT  I OH  8_A  BOR  TE  0_ 


JSC-1014 


131*0  Kinii 


JSC-10140 


I 


CKiCt  • f*\ 

0;Cr  •’«« 

A 


or'^  »'e 
o'  t *4 
VI  I 


■r  M • :o 
O t| 

V • 


^vCS 


P»Cp«0C 

CSSOR  TAPE 

quality  test 

HUN  DAlEt 

RASE 

• • * • « H I 

STOPICAL  F 

I L E • • • • • 

«T*PT  DATCi  l8.«PI>.Tfc 

start  TImEi  ISllSl  5. 

0 

STOP  TIMEI  ISltSlJO. 

0 

"ISSION  99  FLIGHT 

I SITE  2 

FIRST  FRAME  TIHEf 

L^^E  3 RUN  A 

ISiiSi  a.27ao 

- 

•••mavelencth 

calibration*** 

wOiXgL  ««  >£M  vALUi 


D*TA  fROM  CM.  «l 


S 1 R 1 H P A E R R 0 C E Si  0 1 r”*~R1  SUE  ITT" 

FI8T  • 

RUN  OATEl  2R>JUN«76 

• •••♦HrSTORICA'.  file*** 

« * 

START  DATti  H-ARR.Tfc  START  TI^El  ISllSI  0.  0 

STOR'  TlxEl  ISlZn  b.  0 

'^MlSSrtJ'N  rllbHT  i SITE  i CINE  3 Run  a 

FIRST  f RAHt  TINEi  ^ I16t  0.7R2R 


•••£al1BRaTION  PERIOOa** ~ 


parameter VALUE ^ RamETER VALUE 


AVG. 

N/L 

1/L  ramp  peak 
Ramp  pear  sto. 

VOLt 

OEV. 

a. 8679 
0,0000 

VOLT! 

VOLTS 

ti'c'CAL  LAHR 
RESPONSIVITV 

(*2) 

0.2209  volts 

153.6O10  V/N.CM2-STR.MICR 

1 

t 

AVG. 

N/L 

R/L  RamP  mjn, 
rarr  mik,  STD. 

VCLt 

OEV. 

0.0I20 

0.0027 

VOL  8 
VOLTS 

NOISE 

NESR 

(*2) 

t*2) 

0.0382  volts 

2.09)6  E>o  w/Cm2»STR>miCR 

1 

aVs. 

~TtL'£ARlTV-8F* 

ScaM 

0.00I9 

RmS  OEV 

RESPO^IVITV  (A3) 

055.9166  V/M.CN2-STR-HICR 

AVS, 

SCAN  interval 

0.9802 

SECONDS 

NOISE 

(A3) 

0.3266  volts 

* 

NESR 

(A3) 

0.9823  E'O  N/CH2«STR.hJcR 

RESPONSIVITY 

(05) 

79.T837  V/M.CN2-STR-MICR 

NOISE 

(AS) 

0.0)12  volts 

i. 

NESR 

(05) 

),O086  E-fl  W/CM2-STR-M1CR 

. i 

RESPONflvTTV 

(A6) 

1750.9989  V/N-CH2-5TR.HICR 

NOISE 

(06) 

0.05R5  VOLTS 

r 

NESR 

C*6) 

0,3))7  E-N  M/CM2-STR-MICR 

« 6 

(-4 

CO 

0 

1 

H* 

O 


o 


lirMratiMiiigriiw 


, - litliii  rill 
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’ • 4r  PAGE  IS  POOR  JSC-i0x4i) 

II  w*«<kS|k»  «lttw»tUQ  ay  *ivr  Cu««*tl^0Na  10  ACTiVi  CNA^sCbO  0*1  TA^« 

U lwkiy*w  «atau  «iaa»»ftu,  0<*C  C^A*i*>lu  *ittallTlU 

«a  l^•«wla  ?l*'i  •tyufcki  »y«  ualCyT  *«UuaCT| 

• « Wwyl  Ta  »iUU  fits  I'WyCASAOa 

• a t»U»»i«C  AwAAM**!  A*^C  kbIA 

»A  A*«»if  l|«A  >101  bUNUlMD  In  lAAf  SnTiNfA^ 

•A  apA  t»«<N|%«itv  «.»<(  ly  CA*a  isp^y  anhoma 
•«  ivAvA*  • ’ I A«aya  • TaCnlc 

i*»A«  » Ut  •kWaCAllOn  MtaaiAl  >AA  1knAwM«A«  AlaA«6A  uf  UAA  M|«0A«  If  AAnAOA  ANUOAAM  OAbUai  NtWUlNtV  AUI  |,A’*At«  klkitUA 
Ar«wc  A%«ib«nyA 
IA|  AwA  AWJCIA  »«UCAAAA0 

lAI  fl*t  AvICt  lOU  »1A  • r>u  UP  AvOCCIIinb 
«•>  cakiAAivk  **AlnA«AAf  hOfel 

All  *>A«IW«l**t%1  »jn  y*ytAA*tlON  UAIA  HQT  FUuntf  On  AAytAAATlOn  ^Ul 

Aia  t «w  vr  AM**«CAk  Aa'AAI  lAAk  yATiCTIw 

AA«  f*ai  •&*..  I.yy^  *nUA  V«V|Na  TU  «lAu  tnt  A«TAAT  T*Ai 

A««  avirwl  A4y«t  IS  CiWyAl  AO*  CUA^AUUslA  ASU  VAkwtA  lA  UAyrf  UUnTLT  UlnlntlOHiO 

AAA  yyAlAI  niA  aAULlAO  Tn«1  fnl  •m  AOdACAl  1**^  «tylnn|nA  U9  ThC  OATA  AUVCa  1A  000,  aCO>«AN  dlAtClA  AH  AvAN  Blit  AUbNtAA 

I'v^AaIala  k*«yA  In  nuy*in*wAMT  inAyT  TaAa) 

Aa»  «AAt  aAti  inPyT  iu  lAfOir 

4P4  1.A»  aCAn  K«ifAa  UbCa*«eU  •"ibA  AkAiltNb  TnA  INPUl  l*^AAt4V  UATA  IkAAt  ^AOCeAflNb  AlOAICU 

ivtf  l*b  ■ #1  - I**!  Ay»'|i*  lA  su1  lAA«A  CsOwan  TO  CwntA|N  Tf>t  MtAyAH  UCCOhU  QA  TnA  SnAyT  lM«yAMV  rA«>A, 

IIA  Utg'*Ai  • tMA  UUlfuT  twAICH  iA  fiQT  bAAfaC  AsOwfin  10  CbNTAls  eiTflAN  USA  ACAn  blNA  FQN  U*>c  C^ANsAt  UA  |n*AA4l  OAIa  , UN  UnA 

ASyikkAAT  tkJCA  yil*  wUUAbA  Aacctsion  TI«i 

Ja#  UbU*i*  nAA  aAca  OvI«L«vaU  AlTKAfn  C*iwA,  bANNut  KAfnlAve  inFONHATlOn  SAAOAO  TO  COnFkITA  THAnAnUAIOn  UP  OaTa  in  A OAU 
All  iMAf  m»»  AlAylAu  in  1f*A  FmAvIOwA  CAub 

i*4  T**!  T**l  «blbt  4A««iAStby  »AA  bAAl  l*«AN  fm  Fl«AI  t X**t  tnCjanlAAtU  On  iPt  INPUT  IMACAAT  OATA  TaPA 

i«f*  Sy  AAnAb-a  waTa  yN  AUAa  wAU  "UUKQ  OM  "lA**  JANAUT  TA*t  IN  T*>A  TINA  l«TtNVAb  |PAb|FltO 

iAA  «w  AJ'.A  yAlA  PUyNy  UN  TnC  nlAn  uCnIIM  TAPA  In  Tma  r|Pt  |nTA«val  APACiFUO 
AaB  ny  AbsAgp  uaTa  rOuNy  Qn  T«I  nIan  OAnA]Tt  TAPA  In  Ina  i|p(  INlcRvAb  kPAClFIAu 

A«U  y|yy*<|  ACAMyiiy  »«  ■ACUPOl  ANy  COabu  nOI  F|NU  Tna  UINlATOpI  UN  Ima  N|yM  OansXTT  TaPi  |PUSAllbb  aAu  n|Wn  ObNAlU  TaPAI 

ita  OlbUNI  bJUbU  NCI  P|NO  lAlA  bllTkO  IN  TnA  OIPtCIUNf  Tnat  lAUlPltU  TMC  FOmnaT  AnO  T|PA  bONSrPAlNTA,  Tna  OAtIMAU  DATA  IS 
nor  On  Ina  N|yN  gAHSIIV  TaPA 

in#  yibUNi  PCiAbiAO  POI  OaT  of  blNiTI  On  CAbb  Tu  tma  uaia  *ibt  uCCOatN  (0F0)»  (POSiiibt  ANPCP  |N  nunnimaCaPt  input  iapci 

•pa  yiCCNl  aAtACTiO  bCPF  JP  InCp  OUT  OF  blNlTS  UN  CAbb  TO  TmA  OaTa  FltC  UaCCOAP  (uFO)«  (FUSSiPbA  AhnUn  |N  NUNy|MAyAMT  INPyT 

UPaI 

•IP  aiyyM|  yATkbTiO  b«P»  UP  FsT|Ny  OUT  OF  blNlTS  yN  CAbb  lU  TmA  OaTa  Flbt  OACCOtP (OFQ) • (POSSISbC  AhPuP  In  nQn«|MA6APT  IN^UT 
UPAI 

*44  JlCu*l  PCACMpy  ANU  uF  OIAa  •CPQNf  Tm(  InOICaTAO  NynaeP  OF  PtCUPul  |N  TMl  Ul|P  FlbA  nAnA  phIITan  FNUN  T"A  mIwm  uansITT 
TaPa  10  OIPA 

• Ai  UAViCA  C4P04  JN  U||N  «M|bA  tiPlMNy  MUM  QiNSlTV  TaPA  UATA  TO  atIA 

*•4  OAnUni  yyybU  nJT  PfNO  T|NA  04  FOPMAT  IS  TnA  ObSbN|PTOM  FUI,  mIQM  OANSXTT  TAPA  Xi  FuNmaTTaO  iNCuPnAbtyT 

*•4  1"A  PtywiAfia  FuPmaT  anu  TmA  fOPmaT  In  Tma  gASCNiPruP  OF  Ua  nOn«1na6cnt  INPuT  TAPA  00  nOT  maTCm 

• f4  NAA*  |A  NmT  OXnANSI  'N6J  b«*bt  iNOybM  TO  CONTAIN  T««A  Ca"**gNlb  A T IUN  SATnAAN  0CP|PT  ANU  uCUM«N 

• •0  OCOmBN  CSNNUT  ilATgpN  A MUbTlPbA  OF  NAV  FPAPaS  PACAuSA  wF  mt  lyFFtP  Slit 
*%4  Tnl  FihsT  PaCjPu  ON  UA  NONalNAblNf  TaPa  is  NuT  T"A  UaScPIPTOn  Flbt 

ISA  Tma  MAASaMAMANT  |y  wIST  PAUulsrAO  OUAI  NOT  NATCm  ant  OF  TnOsA  |N  Tma  PbUCP  CONNON/ObCNTb/.  (TmA  NUNylMAyAnT  XnPuT  SOUmCA 
IS  PylsX«bT  IN  fPPyPi 

Hi  OkNlPf  uATAbTAO  TmaT  Tma  wSaP  PCQuASTaO  Tm(  UASbN|PtQif  St  PtruPNCu  XN  TmC  SuFFAm,  SuT  ThA  toFAtH  XA  nuT  bAPCA  CNUyCM 
TO  CuNTAIN  IT 

AiP  UlVlCA  CPnOM  •m|LA  MAAUlNy  NUN«|NAbtPT  yATA  P«uM  A a*tMACP  TAP|  op  a y|SH  FlbA 

Hi  DbiXFl  COUbU  NOT  kObA'iA  IiTmAp  Tma  AOnmaT  IuAtTIFXAm  sbOCA  UP  T|pa  IUAnTIFXAP  ibOCP  iN  Tma  uASCnIpTuP.  TNA  uAsCmIpTUX 

MbA  OF  Tma  nOn-imaUaPT  TAPA  IS  IN  AmPuP 

• «i  liCOMAN  OATACTS  TmaT  TnAnA  UC  «*0PA  Than  ISi  PhXmA  FmamAS  of  Data  pan  MCCONOt  UCONAN  Mibb  NQf  HANUbA  AuCm  mACOhOS,  TmA 

NUN*tHAyCPT  iNPgT  sguMCt  IS  PySSXibT  |n  Amvun 

iMt  MAyuClTAO  t|MA  IS  NUT  UN  TMfc  nOn«1maOapt  UATA  TaPa 

SSi  UbUMSn  cOwuy  not  yJ»*iA  Tma  SA6|NnXn6  OF  a yATA  CvCbt  Fq«  SulCONMyTATAO  OaTa«  (POIIllbA  ChPOP  In  Tma  nOn-  Xmawapt  QaTa 
Tapa) 

ObiiPT  bANNUT  uaTaPmInA  if  a MtOUAlTCg  mAaSwNcmANT  is  main  FPama,  |gibU-4NutATA0|  OP  IgPAPbQNnyTATbO,  (PuSSlSbA  AMNOh  in 
Tma  NUN«tMAbA«T  wATA  fAPI  ) 

Its  UCPIPT  CP  UbO*>iN  UCTaCTS  tma  mAaInuN  NUMSAP  Of  MeAluPAMANTl  PaOUABTAO  FmOm  tma  nON*XMAUaPT  UATA  TAPt  FQH  TmU  FOnmaTS 
lACkCgS  «ii  mmXCm  Xa  Tma  haaImui*  AwbU«*Pbt 

ISi  ObOMiN  uCI&bTAO  TmaT  pQS  hAS  OUT  OF  PANUC  FUP  TmA  OATA  FlbC  OACOOCP  (UFU) • (PUlSliLA  APhOP  IN  NUN-|MAytMT  DATA  TAPA*) 

Inp  CbOMN  oCtACTbO  TmaT  ^CpF  Op  |N(P  maI  OuT  OF  hanOC  FOn  Tma  yATA  Flbt  OCCOUCP  (OFOI*  (POiSiSbC  IPPmOm  |N  nqn*|ma..Cnt  OaIa 

TapC) 

Ai»  UCOmAN  oCTkbTAJ  buP«  b*  FsT|N0  «aS  OyT  OF  PanuA  PUP  TmA  OaTa -MbA  OACuOAP  (OFy),  <(AaSAI»bS  aPPOn  IN  N0N»|MAt.CPT  OaTA 
TAFA] 

Alt  A PtASUMANCNT  IPACIFXCO  COUbO  NOT  at  FOuNO  ON  TmA  NUN«|MAAANT  UATA  TNPA.  iPOIAXibA  tPAOP  IN  N0N«XMAWAPT  OATA  TAPA) 

Aii  OCONll  Mibb  NUT  MASyyi  PtCTuPA  AbCNANTA  PAOuIMnO  NUPA  Than  i«  ftra 

Ail  yCOMll  uATtbT&O  OATA  «AS  UPOAnAO  P|lAb  PATmAN  THAN  OT  CMAN<«Ab<  CANNOT  manQlA  TmXS  CaIC 
Tat  UATICA  IAmOP  UN  OllA  IN  PmOUPAM  aMlCM  OuTPgTI  UNlvAMSAk  FOPMAT  ccr 

Tit  OATICA  APNOm  UN  TaPA  «M|y&  ATrAMPTlN*  TQ  ugtPyT  gNlfAHjAC  FoPmAT  CCf 

Tsa  A paasupApAnT  In  Tna  PlywAiriO  blST  QF  PANAMATAPtf  FPUM  TmA  NgN»|MAyAPT  Tapa#  PAOulPAl  mOpA  Than  itt  mOpOS  pCP  PtCOPu. 

TmA  OACONMUTATXUN  PPOgPAM,  OCOPiNf  alyb  NUT  MANUbt  SJCM  PtCuPOl 
SSI  OllA  FluA  AyyyCATION  PAOUtST  ft  IINSOP  PPCOnAm  OCnIAO.  NAaWiPAO  F|bA  blNSTM  AlCAAOB  PPAA  SPACA  AVAlbAdbA 
iii  Oias  iCao/npiia  CpPun  on  TAMPyPAPr  uXSa  F|^A  in  SAnsOn  ppoOmam 
a«i  Tas  OiaCPlPTlON  PtOytsTAO  NOT  CKAlLiPbt  Tu  TBSUPP 

•PI  Tma  Tap  XU  ASSOblATAO  «im  rnt  fP|nT  AJFPPASBIOn  rCbtPANCAB  ts  not  Tma  SApA  AI  tma  TAi  XO  ON  CAPO  rrPt  A 
IPS  UNPtCUVF.PAPbA  PAAO  APPQP  ON  NON«lMAb|MT  XNPuT  TaPI 

PiB  APPAT  For  BTOPAbA  OF  PbbT  ytSCNXPTXONS  |S  ryo  SPAbb  TO  COnTaXn  PbUT  OABCPtPTlUNS  ANTIpAU  Bf  bAAuCAPyl 
Pit  TCO  pant  UTnamIC  mCPOINA  PAAiMttlAB  apA  BaXnO  iNTAPbO  In  lIaO  CaPuS 

Pit  APPAT  Fy4  BT04A(tA  QF  TAi  yASCNlPTXgM  XS  TOU  »NAbb  TO  CbNTAXN  TAB  OASCPXFTXQNB  ANTApAO  PT  bAAO  bAPOS 
PPP  ImPuT  BTahT  op  sTQ*  T|ha  UuT  up  tPAbXFltO  eOUNOB 
liti  ThC  MICm  uASSlTT  TaPA  MAS  RIAN  AlaOUNQ 
liiB  PAIS  I COmPuATA 

list  OaTa  A«AXbA«bi  mITmin  CuPpCnT  TXpA  IbICA  maB  »AAN  PpOCCBSAO,  PROCIIOXN&  TO  PPOCCBI  NAlT  RAUUtlTAO  TtNl  BbUA 

|tr%  SATilT  TlbC’‘ATRT  OAtA  bPOPOuT  AMCygNTAPtO 

llil  Abb  OaTa  pau:cSSAy 

ttPI  CAbb  mITm  CAub  CiNTftR  TINA  UAyATCQ 

UPP  BAnrOp  FlAbU  vTP  VXIp  POXnTXnU  AilB  OOAt  NUT  iNriNBACT  TmA  BuRFACA  OF  Tma  AAPTm 

llSi  Ny  TAblMCrPT  UATA  ATAXbAlkA  FUP  FiA^O  OF  tXA«  C0'*pyf ATIOns.  nu  TAbuO  PiTyPNfO  IT  PXAbO  OF  TlA4  PPObASBUR 

ktil  IFO  fpBbP  XN  CAblBPATlON  ICOulNCI  RCBybTS  • PpCcpam  CONTlNutl  But  data  COST 

ItPl  BaXP  in  OaTa  »X*m|n  T|ma  XStAPTAb  • XNTtRvAb  buT  SHORT 

ttil  BAO  OaTa  FQP  (maRmisTOR  • OaTa  in  XNTtRvAy  NOT  yStO 

lilt  CRb  BTAp  not  uSAO  to  COMPyTk  SASIwInC  CUunT 

llil  CAb  SflP  NOT  ySAO  TO  COmP,^TA  AAieglNA  TtHPCPAruNA 

llil  CAb  ITAP  NOT  wItC  ,b  eC  PyTi  iCAbt  FACTOR 

Ittl  eONflNUA  PPUCBISXnO 

list  PAAO  aPmOP  UN  NON«lHAbANT  XnPuT  TaPI»  A PPfBICAL  PACOiO  «AB  BaXFPaO  ANO  AN  aTTAhPT  ||  BaXnO  naUA  TO  PnOCISB  Nil?  paLOhO 
liFt  iNVAbiy  RMToCf  AuT'fgy,  TAgyA  blSI  Tman  0«  AQuAy  TO  lAPO 

llRi  XmP40mAm  PANwA  TAbUt  OOlS  NUT  »}R«XT  SC  A T T I PQMt T A*  iACASCATTC«  CAyCUbATION 
iJAi  Tuu  NAN?  P^UT  TtPaI  UF.SbRXitO  IN  lAaO  Capos.  UNb?  PIFTAIN  iNTiAtO 
lili  TUO  MAN?  TAi  TTPAS  OlsCPXiCd  U bAAO  CAmOS.  ONbT  PivC  AnTAPAO 
tSS  STA4T  UF  UAIA  CANN-H  ik  UATiCTtU 

Pit  tiCyXb  TO  ASCII  CyNtCnSlON  tRPL’R  |n  haawAP  OP  nON«ImACAPt  iNPyT  «aPa 

PJi  BaO  FmahI  St«C  ANbOyNli^AU  IN  FIRST  ANCXbbAPT  OF  MBS  XHACiPT  input  TAPA*  PPOCaSSInC  stops 
PsP  paCaSaIvA  i«a  stnq  buwts  in  aqai  jaTa 
PiP  NU  aOas  OaTa  |N  haai  amr«t 

*ST  Tl  IS  NUT  miThIn  T"!  TlMC  blPXTl  XN  M|AS  AiPAT 

|p|  Th|  AyAt  IX«A  On  T**k  |NFy1  lAFi  CAUIAO  A OATA  OvAiPbO"*  ThXI  UCbURS  phApA  ThCn|  Is  AN  fRPOP  In  Tma  AOaS  OaTa  un  Tm| 
iNPuT  Tapa. 

lii  ChanNau  NttUty  FOp  MmR'SS  ClMiyfATlCN|  |S  OwT  OP  STnC-PROwISS INb  STUPPAy 
liii  mu4a  Than  una  MAi|«>yH  maan  lAyyl  |n  VIOAO  ORTAi  PpOCASS|nC  C0nT|Nu|s 
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